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ABSTRACT 


A Network Monitor is designed and implemented with 
a Personal Computer (PC) to monitor the traffic on a Token 
Ring network developed at I IT Kanpur. A layered approach is 
employed in the development of software which involves a 
Data Acquisition Layer that generates status messages for 
each packet circulated on the network and transfers them to 
the PC, a Data Processing Layer that processes the status 
messages and computes the various parameters, and a User 
Interface Layer that reports the network activity through 
network status displays. 
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CHAPTER 1 


INTRODUCTION 

A communication network when installed, should 
continue to function without intervention. However, no 
matter how reliable a component is ,it can still fail, 
resulting in communication failure or degradation of 
performance. Also, networks grow and change with the needs 
of users. Each network is originally designed to handle a 
certain level of throughput. All original assumptions are 
likely to change over time. This means that network design 
needs to be re-evaluated periodically. It is therefore 
important to manage the network and its growth so that the 
desired performance of the network is maintained despite 
failures and changing user needs. The quantity and 
geographical distribution of network devices makes the role 
of Network Management a difficult one. One of the important 
tools in managing networks is the Network Monitor. 

A Network Monitor is a window to the network that 
provides continuous measurement of significant network 
performance indicators. The performance parameters obtained 
would help in fault diagnosis and also serve as inputs to 
prediction tools such as queuing models, statistical 
techniques, simulation and bench marks that would facilitate 
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efficient Neltwork Management. 

1.1 Types of Network Monitoring. 

Depending on the method of measurement. Network 
Monitoring can be classified into two cat egories[KP 87]; 

(1) Hardware Monitoring. 

(2) Software Monitoring. 

Hardware Monitoring is based on the assumption 
that the performance characteristics of computer systems can 
be measured by detecting signal voltage transitions in the 
circuitry of the hardware. Hardware monitoring could 
further be classified into two categories: 

(a) Digital Monitoring - Involves signal monitoring at 

interface between data terminal equipment (DTE) and data 
communication equipment (DCE). Monitoring the interface 

signals between a modem and connected terminal or system is 
an example of Digital Monitoring. 

(b) Analogue Monitoring - Involves direct measurement of 
analogue circuit conditions such as signal levels, phase 
jitter and distortion. 

Software Monitors constitute a class of programs 
for measuring hardware , system and application software. 
They are resident in storage and can be activated by events 
or a timer. The data collected by sampling or eventing are 
reduced, processed and reported. State-of-the-art software 



3 


monitors maintain measursrasnt data files or even data bases, 
which can be accessed at any time. Furthermore, threshold 
may be defined and thus exceptions, alarms and/or reports 
can be generated automatically. Software level monitoring 
techniques allow the measurement of the performance, error 
rates and also observe trends .It also has the advantage 
that additional hardware is not needed for the purpose of 
monitoring. In the description henceforth. Software 
Monitoring is implied, unless explicitly stated otherwise. 

A Network Monitor could be functionally ’passive’ 
or ’active'. Uhen a Network Monitor is passive , it is not 
addressable by any other node on the network, and therefore, 
no other node sends information addressed to Network Monitor 
or vice versa. It functions as a listener transparent to 
the other network users and usually receives data by a T 
connection on the communication channel. Active Network 
Monitoring is more advanced and sophisticated in that, 
different acquisition units could exist at various important 
subsystems in a network and report to the Network Monitor 
exceptions or performance information of the subsystem 
periodically. The Network Monitor may also send packets 
requesting stations to send specific information. In such a 
case the monitoring information transmitted from the data 
acquisition unit to the Network Monitor or vice versa would 
be an additional load on the Network. This would .however. 
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provide a very useful tool in fault diagnosis and 
per f ormiance evaluation of different subsystems in large 
networks . 

1.2 Fault Diagnosis with a Network Monitor. 

Without the help of a Network Monitor, problem 
determination procedures are crude. If only one user 

complains, it is probably due to a problem with a station, 
or its software. If users of a specific server complain , it 
is most likely a server problem. If lota of users complain, 
however, the problem may be serious. A Network Monitor aids 
in the determination of the location of the fault to a groat 
extent. The following are some of the common problems in 
networks, and the role of a Network Monitor in the 

corresponding fault diagnosis[JL 88]. 

(a) Problem: No network communications. 

The Network Monitor would report throughput and packets per 
second as zero, showing no sign of traffic. This can be 
confirmed by attempting to transmit packets from a given 

node. If the problem is due to a short circuit, or open 

circuit, then ,it would not be successful. The best approach 
to track down the exact source would then be, to use a Time 
Domain Ref lectometer(TDR) . 

(b)Problem; Abnormal Network Traffic. 

This cannot be detected easily without a Network Monitor. 
The other possible symptoms are, large number of packets 



5 


with CRC error, and larse amount of packets per second, 
particularly, of small packets that are smaller than the 
permissible length. The cause could be a malfunctioning CSKA 
or IBM Token Ring implementation. 

(c) Problem: Station not communicating. 

If a particular station, is unable to communicate with any 
other station ,then ,with the help of a Network Monitor it 
is possible to determine whether the problem is of the 
station alone or of a portion of the network. 

(d) Problem: Station not able to communicate with some other 
stations . 

The Network Monitor would be an invaluable tool in such 
cases. It would be possible to determine whether a 
malfunction occurred at the source (then, no packets would 
be reported to have been sent by the source node) , in the 
channel ( error packets would be reported or alternatively no 
packets would be reported) or at the destination. The 
Network Monitor ,can, thus prove to be a useful tool in 
detecting failures. 

1.3 Organisation of the Thesis. 

In this project, a software monitor has been 
designed and implemented to monitor the performance of the 
PC - LAN developed at Indian Institute of TechnologyC I IT) , 
Kanpur. 
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In th. chapter, a diecueaion of the design 

Set-orh nonitor i. presented and a layered approach is 

.nggested in the deyelop.ent of software. Chapters 

three. four and five discus, the iaplenentation details of 

the layers of software. The concluding chapter discusses the 
perfornanc. of the Network Monitor and explores th. 
enhancenente and additional features that could be 
incorporated into the software. 


CHAPTER 2 


DESIGN OF NETWORK MONITOR 


on-line »n.ly.i« °£ coMunlcation n.tworlcs 

involvea acuisltion of data. th. .uba.,u.nt proc.aaln. of 
data. uPdatin, of data baa.a and r.portin. to tha na.r the 
varioua para-.tara thron,h ua.r-fri.ndly diaplaya. in a 
network, data ia .enerated in real tine. On acoonnt of the 
tine critical nature of execution of the .onitor’a taaka. 
it ia i-perative that the aoftware ia faat and efficient. 
In addition .the aoftware should preserve xn 
to incorporate new features as and when necessary. 

2.1 Desifin Criteria for a Network Monitor. 

The general architecture of a Network Monitor is 

given in figure 2.1. The Network Monitor CPU controla all 

aieaeurenent and reporting functiona. The addreaa.ble nodulea 
are reaponaible for gathering infornation on the network 
interface. The prinary deaign and inpleuentation criteria 
for the varioua aodulea of fiaure 2.1 «ay be broadly grouped 
as[KP 87]: 

(1) Data acquisition. 

(2) Centralised information availability. 

^3) Data Base Management. 

(4) Trend and performance analysis. 
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(5) Ease of use. 


These criteria are briefly discussed in the 
the sub - sections that follow. 

2.1.1 Data Acquisition. 

The data acquisition nodules connunicate with the Network 
CPU through asynchronous connunication ports. Once events 
of inportance have occurred, the data acquisition nodule 
prepares status or alert nessages and buffers then for 
transnission to the Network Monitor CPU. The Data 
Acquisition nodule should possess enough nenory to buffer 
all the status nessages when the load on the network is 
naxinun. The tramsnission to the Network Monitor CPU should 
be such that there is no buffer overflow or overrun error in 
the status nessages during this process. The nodules for 
data acquisition are nicroprocessor based which include a 
processor, control logic and internal nenory that contains 
prograns to drive the processor and to buffer data. The 
prograns are dependent on the protocol . 

2.1.2 Centralised Infornation Availability. 

It is inportant that infornation of the network be centrally 
available. The principal elenents of the software should 
include the following: 

a) Gathering of sunnary -type perfornance data fron the data 


collection nodules. 
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b) Maintaining summary tables on status and performance of 
every node in the network. 

c) Updating graphic output to CRT displays and print 

d) Processing commands of system users. 

e) Recording performance statistics. 

f) Providing access to the data bases for real ti*«® displays 
and printing reports. 

2.1.3 Data Base Management. 

In order to define meaningful performance opti®i®*ti®*^» 
historical data should be available. The data stored in a 
performance data base can be interrogated and processed at 
will. Contents of the network performance data base may 
include service -oriented measures such as avail*l>ili'*^y * 
response time, accuracy, and efficiency related measures 
such as Throughput and Utilisation. This would require the 
parameters to be collected, analysed and comp^*®®*®*^ 
different levels of detail with date and time stamping. On 
account of the large amounts of data to be stored in the 
Data Base at regular intervals of time, it is vital that the 
update time is minimal, and therefore is an important 
criterion in the selection of the Data Base package for 
logging network data. 

2.1.4 Trend and Performance Analysis. 

Usually, data of the performance data base are further 
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processed, analysed, interpreted and reported us ins 
statistical and graphic features. Trend analysis can be used 
to track potential problens in the network configuration, 
suggesting the right places for reconfiguration. 
Statistical analysis using correlation techniques explore 
the dependency of service parameters on the resource 
utilisation. 

2.1.5 Base of Use. 

The Network Honitor should be easy to use and measurement 
results should be displayed and reported in easily readable 
form. The following are expected to be supported[KP d7]: 
Henu - driven techniques. 

Selection of measurement. 

Help facility. 

Screen dump. 

2.2 Design of Nstvork Monitor for a Token - Bing Metwork. 

Uith the criteria explained In previous section as 
a general guideline, a Network Monitor is developed for a 
Token Ring network the details of which, are given in 
Appendix I. The monitor uses the same network interface with 
a different fimware. 

A Layered approach is employed in the development 
of Network Monitor software. It consists of three layers as 
described below: 


IZ 


2.2.1 D*t* Acqtii«ltion L«y«r . 

This layer consists o£ -the software that monitors the 
communication lines of the ayatem for interpreting the 
network traffic. The prograsa for* traffic interpretation 
are stored in PROMS and are protocol dependent. Once events 
of importance have occur ed , etatrtia or alert messages are 
prepared and passed to the Data Processing Layer, in a 
circular buffer , and in a ataradard format. Thus the low 
level protocol is transparent to Data Processing Layer. 

2.2.2 Data Processing Layer. 

The status messages in the ciircular buffer form the inputs 
to Data Processing Layer. It computes the various parameters 
regularly and updates the data bases at regular intervals of 
tine. The results of computation are passed to the User 
Interface Layer in a set of variables. Thus the Data 
Processing Layer is transparent to the User Interface Layer. 

2.2.3 User Interface Layer. 

The User Interface Layer gemerates the various display 
screens and processes connande from the user. It uses the 
data passed on from the Data Processing Layer to refresh the 
screen at regular intervals. 

The layered approach suggested above implies a 
modularity in the softhvare. The next three chapters give the 
implementation details of the JNetW'ork Monitor. 



CHAPTER 3 


DATA ACgUISITION LATER 

This chapter describes the software referred to as 
Data Acquisition Layer in section 2. 2.1, that receives each 
packet circulated on the Token -Ring for interpreting the 
network traffic . 

3.1 Functions of Data Acquisition Layer. 

The PC - LAN card developed at I IT Kanpur with a 
modified firmware is used for the data acquisition module. 
In discussion that follows the data acquisition module will 
be referred to as Interface Card . The Intel 8088 processor, 
Intel 8256 MUART, EPRON and RAN mounted on the Interface 
Card constitute the digital interface to the network. The 
details of the PC - LAN developed at I IT Kanpur are given in 


Appendix I. A 'T’ - 

Connection to 

the 

RXD 

line of 

the 

primary node enables 

the Interface 

Card 

to 

receive 

data 


flowing on the network. 

Data that is being transmitted from another 
computer or device over the network is acquired over a 
serial line by the MUART. The software stored in PRON 
assumes the Token - Ring protocol of the PC - LAN. Once 
events of importance have occurred , for example arrival of 
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a packet, statue messages are prepared and transmitted to 
the Network Monitor. 

3.2 Implementation of On - Line systems under MS - DOS. 

In the present project, a IBM PC/XT compatible 
with MS - DOS version 3.20 is used as a Network Monitor. 
MS -DOS imposes certain restrictions in the development of 
software for data acquisition. It is therefore important to 
explore the support provided by MS - DOS in this 
connection. This section discusses this aspect in detail. 

As of version 3.20, MS - DOS is not a multitasking 
operating system. MS - DOS is not re-entrant, which means 
interrupt routines cannot call MS - DOS without the risk of 
’blowing* the system away [JK 86]. This means in order to 
implement on-line systems missing portions required by the 
application need to be provided. 

The simplest type of on-line program is one that 
does not require any multitasking and does all of its input 
and output through standard MS - DOS devices. Unfortunately, 
nothing much can be accomplished under these restrictions. 
It is necessary to extend MS - DOS in order to implement 
more advanced systems. 

One of the many multitasking features that 
MS - DOS lacks is pre-emptive scheduling, which is the 
ability of the operating system to interrupt a currently 
running routine and start another one [JK 86]. Pre-emptive 
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scheduling cannot be added to MS - DOS, because it is not 
re-entrant. In order to overcome this limitation the 
following strategy is to be adopted. 

a) First, divide application into separate tasks. 

b) Then, organize the tasks into two groups: those that 
have critical timing constraints and those that do not. 

c) Determine what types of operations must be performed in 
critical sections and also determine whether they can be 
accomplished without calling MS - DOS. This is because 
MS - DOS does not guarantee that it returns from a call in a 
set amount of time. Critical sections of programs must 
therefore bypass MS - DOS altogether even if it means 
sacrificing compatibility. 

d) Finally, decide whether the program will be interrupted 
by outside events. 

Uhen interfacing to Data Acquisition Module an 
MS - DOS device driver can be used to acquire data. This 
would result in a device driver that is portable to other 
MS - DOS systems. If MS - DOS device driver is not used in 
the interests of modular programming , a separate routine 
must handle data acquisition. This routine, as part of MS - 
DOS or not, is the device driver. The device driver is 
usually interrupt driven and does the function of storing 
data in the buffer. The calling program reads the buffer to 
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obtain the buffered data. 

3.3 Inplenentation details of Data Acquisition Layer. 

The Data Acquisition Layer comprises of the following: 

(1) Firmware on the Interface Card which sends status 

messages to the Network Nonitor. 

(2) Software in the Monitor PC which receives the status 

messages and buffers them in a circular buffer. 

3.3.1 Firmware on the Interface Card. 

Certain conventions are followed in the status messages sent 
from the Interface Card. They are as follows: 

(1) Whenever a packet is received by the Interface Card 
without error, a status message of four bytes is to be 
generated, whose format is given below: 


02 

Source 

Destination 

Length of 


Address 

Address 

Packet 


(2) Whenever a packet is received by the Interface Card with 
error, the status message generated is to be of the 
following format. 


09 

Source 

Destination 

Length of 


Address 

Address 

packet 


The algorithm for the firmware on the Interface 
Card the is given in Appendix II. The salient features of 
the firmware are explained below: 
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(1) Whenever a byte ia received by the Interface Card, 
the MUART generates an interrupt to Intel 8088 processor. 

C2) The interrupt service routineCRXINT) is executed that 
receives the byte into a buffer. 

(3) The master loop is the rout ineCMASTER) that is 
continuously executed by the processor on the Interface 
Card. The master loop checks, whether a packet has been 
received whose status message is to be generated, in which 
case calls a procedure(PCOUTP) that transfers the four bytes 
constituting the status message into four buffer variables 
namely STAT_FIRST, STAT_SOURCE, STAT_DEST, STAT_LEN. If the 
packet length (in bytes) minus the header length (in bytes) 
is equal to the value specified in the length field, the 
value 02 is assigned to STAT_F1RST. If this is not true 
then, the packet received is in error and a value 09 is 
assigned to STAT_FIRST. It then raises an interrupt to the 
PC by raising the IRQ2 line high so that status message may 
be received by the Network Monitor PC. 

3.3.2 Software in Monitor PC. 

When the interrupt is raised by the Interface Card, the 
interrupt service routine reads the bytes of the status 
message from the Interface card into a circular buffer. A 
pointer BUFF_PTR points to the last byte received by the 
Network Monitor. The Data Processing Layer determines that a 
status message is ready to be read from the circular buffer 
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by cojBparinfi BUFF_PTR with another point er(PIPE_PTR) . The 
PIPE_PTR points to the last byte read from the circular 
buffer. The circular buffer is implemented as an array of 
32 Kbytes. The device driver is coded in Intel 8088 assembly 
lanfiuafie and is given in APPENDIX III. 

The next chapter gives details of functions 
and implementation aspects of Data Processing Layer. 



CHAPTER 4 


DATA PROCESSING LATER 

This chapter discusses the software referred to 
as Data Processine Layer in Section 2.2.2, that processes 
the status messages buffered in the circular buffer, 
computes parameters and updates the Data Bases . The various 
parameters computed can be classified into three categories: 

(1) Network Summary Statistics. 

(2) Node List Statistics. 

(3) Error Statistics. 

A Data Base file is maintained for each of the 
categories listed above. The following sections define the 
parameters computed under each of the categories and 
explain the algorithm for the computation of the same. 

4.1 Network Sumiary Statistics. 

The parameters that are classified under this 
category are as follows: 

(1) Throughput: The number of bytes circulated on the ring 
in a given interval of time is defined as Throughput. It is 
computed for the current minute once every second. 
Throughput in previous Minute, the average value & peak 
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value is computed at the end of every minute. 

(2) Utilisation: The ratio of the number of bytes 

circulated on the rine in a eiven interval of time to the 

maximum number that can be circulated in the same interval 

of time (i.e. maximum possible Throughput) is defined as 

Utilisation. Utilisation in previous minute and the peak 

value is computed at the end of every minute. 

Utilisation Throughput in previous minute(in bytes) 

in previous = - 

minute tlaximum possible Throuehput(in bytes ) 

(3) Packet Summary: The number of packets circulated on the 
ring is computed every second. At the end of every minute, 
the number of packets circulated in the previous minute, 
their average value & peak value is computed. 

C4) Data Base Summary: The Data Base Summary lists the 
number of records in each of the Data Bases. 

The Data Processing Layer includes software that 
determines the elapsed, time and updates data buffers at 
regular intervals of time. This is accomplished by the use 
of Timer - Tick interrupt for executing time critical tasks. 
A brief discussion of the Timer - Tick interrupt is as 
follows: 

The dynamic memories in a PC are refreshed by 
means of an hardware interrupt to the processor. In addition 
to refreshing the dynamic memories the interrupt service 
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routine also invokes a software interrupt ( INT ICH) called 
the Timer - Tick interrupt. Normally the Timer - Tick 
interrupt points to an instruction which causes the proeram 
to return from the interrupt service routine. But the user 
program may ’capture’ this interrupt so that a portion of 
code may be executed at regular intervals of time. 

Uhen a status message is processed the value 
specified in the Length field of the status message, and the 
header length is added to the variable NO_OF_ByTES_SEC, that 
keeps a count of the Throughput in current minute. The 
format of the status message is explained in Section 3.3.1. 
Likewise, the variable NO_OF__PACKETS_SEC keeps a count of 
the number of packets circulated on the ring in one second. 
At the end of every second the Interrupt Service Routine of 
the Timer_Tick( INT ICH), transfers the contents of 
NO_OF_BYTES_SEC and NO_OF_PACKETS_SEC into intermediate 
buffers THRPUT_INTK_BUF and PAKSUI1_INTII_BUF respectively, 
each of which is an array that can store sixty integers. In 
other words, the values of NO__OF_BYTBS_SEC and 

NO_OF_PACKETS_SEC of successive seconds are stored in 
consecutive positions in the respective arrays. This process 
of accumulation in the buffers is time critical, i.e. it is 
to be executed at the end of every second. Hence, it is 
performed in the Interrupt Service routine of the Timer_Tick 
interrupt which is given in figure 4.1. 
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{ Interrupt Service routine of INTlCh that gets 

executed every 55.54n»sec.} 


procedure IntlCH«ndler( Flsgs ,CS. IP,AX,BX.C2, 

DX,SI,DI,DS,ES,BP:v/ord); 

interrupt ; 
begin 

Inc(SECCOUNT); 

if SECC0UNT=18 then 

begin 

SECC0UNT:=0; 

SECUPDATE:=1 ; 

RINGUPTIME:=RINGUPTIME + 1; 

THRPUT_INTM_BUFC INT11_BUF_PTR] : =NO_OF_BYTES_SEC ; 
PAKSUN_INTM_BUF[ rNT21_BUF_PTR] : =NO_OF_PACKETS_SEC; 
IMTM_BUF_PTR : = INTM_BUF_PTR + 1 ; 

NO_OF_P ACKETS_SEC : = 0 ; 

NO_OF_ByTESjSEC z =0 ; 

Inc(MINCOUNT); 

if MINCOUNT = <50 then 

begin 

MINCOUNT :=0; 

MINUPDATE:=1; 

INTM_BUF_PrR:=l; 

end; 

end; 

end; 


Figure 4.1 
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The contents of the intermediate buffers 
THRPUT_INTM_BUF and PAKSUII_INTI1_BUF are accumulated in 
THRPUT__CUR and PAKSUM_CUR respectively at regular intervals. 
These variables are used by the User - Interface layer to 
display the Throughput and number of packets in current 
minute every second. The average value of Throughput and 
Number of Packets circulated on the ring is computed as 
follows : 

Average value of Throughput Throughput in Previous Minute 

in previous minute(in bytes = — - 

per second) 60 

Average value of number of Number of packets circulated 
packets transmitted on the on ring in previous minute 

ring in previous minute = - 

(in packets per second) 60 

The Data Base file corresponding to Network 
Summary Statistics is DBAS.DAT. At the end of every minute 
the Throughput , Utilisation and the Number of Packets on 
the ring in the previous minute is stored in the Data Base 
file with date and time stamping. 

The parameters of Data Base Summary are as 

follows: 

(1) Sample Time: The interval of time between two updates of 
Data Base is defined as Sample Time. The Sample Time is one 
minute as the Data Base is updated every minute. 
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C2) Muaiber of records in DBAS.DAT. 

DBAS.DAT is the Data Base file for Network Summary 
Statistics. 

C3) Number of records in NLDBAS.DAT. 

NLDBAS.DAT is the Data Base file for Node List Statistics. 

(4) Number of records in ESDBAS.DAT. 

ESDBAS.DAT is the Data Base file for Error Statistics. 

4.2 Node List Statistics. 

For each connection node on the network that is 
involved in communication, the followinfi parameters are 
conput:ed at the end of every minute: 

(1) Number of packets transmitted by the node. 

(2) Number of bytes transmitted by the node. 

(3) Average packet size of the transmitted packets. 

(4) Number of packets received by the node. 

(5) Number of bytes received by the node. 

A Data Base file NLDBAS.DAT is maintained to 
record the Node List Statistics. At the end of every minute, 
the parameters listed above are recorded for every node that 
was involved in communication in previous minute , with date 
and time stamping. 

The algorithm to compute the above parameters and 
the data structures used for this purpose are explained 
below and the program listing is given in Appendix III; 

(1) The PC - LAN developed at IIT Kanpur can support upto 
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255 nodes. Refer Appendix I for further details. 

(2) Two arrays N0DE_LIST_ARRAY1 and N0DE_LIST_ARRAY2 each of 
size 1550 intefiors is defined. These arrays store the 
dynamic values of each of the parameters listed above. 

(3) For the duration of one minute, one of the arrays Csay 
N0DE_LIST_ARRAY1) is used , and for the next minute the 
other arrayCsay N0DE_LIST_PTR2) is used. The array used in a 
particular minute depends on the value of the variable 
N0DE_LIST_PTR. If the N0DE_LIST_PTR has a value ’1’ in a 
fiiven minute then N0DE_LIST_ARRAY1 is used ,else 
N0DE_LIST_ARRAY2 is used. 

(4) Each connection node is allotted five successive bytes 

in each of the arrays in the ascendine order of node 
addresses. The Nth byte of the allotted bytes may be 

indexed by an offset given by N + (Connection Node Address - 
1) * 5 . The first byte of the allotted byte if non - zero, 
signifies that the particular node has been involved in 
communication and will bo referred to as ’DIRTY’ byte. It 
is assigned a value ’1’ if the given node is involved in 
transmission and a value ’3’ if the given node is only 
involved in receiving packets from a source node. The second 
byte of the allotted bytes stores the dynamic value of the 
number of bytes transmitted by the given node and will be 
referred to as COUNT_BYTE_TXMT byte. The third byte stores 
the number of packets received and will be referred to as 
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COUNT_PAK_RECV. The fourth and the fifth bytoa keep a count 
of the number of packets transmitted and number of bytes 
received and will be referred to as COUMT_PAK_TXMT and 
COUNT BYTE RECV respectively as follows: 


DIRTY 

COUNT BYTE 

COUNT PAK 

COUNT PAK 

COUNT BYTE 

BYTE 

_TXMT 

_RECV 

_TXMT 

_RECV 






(5) Uhen no time critical tasks need to be executed, a 
series of computations are performed. One of which as 
explained earlier, is to compute the Throuehput and number 
of packets in the current minute; the other is to process 
the status messaaes placed in the circular buffer. These 
status messages are used to compute the Node List Statistics 
and Error Statistics. 

As explained in previous chapter when a packet 
circulates on the ring without errors, a status message is 
generated by the Data Acquisition layer in the format given 
below: 


02 

Source 

Destination 

Length 


Address 

Address 



If a packet circulates on the ring with errors the format 

% 

of the status message generated is as follows: 


09 

Source 

Destination 

Length 


Address 

Address 
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(6) The first byte of the status messaee indicates whether 
it represents a status inessaee for a packet that circulated 
on the rine with error or without error. If the status 
stessage represents a packet without error then the 
computations of Node List Statistics are performed. The 
Source address byte of the status messaee is used to index 
the Node List array pointed to by the NODE_LIST_PTR to 
access the DIRTY byte of allotted five bytes. A value of ’1’ 
is assifined to the DIRTY byte. To the COUNT_BYTE_TXMT field 
is added the Leneth field of the status roessafte. The value 
in COUNT_PAK_TXIIT is incremented by one. The Destination 
address field in the status message is used to index the 
Destination nodes DIRTY byte. If this byte is not equal to 
’1’, it is assifined a value ’3’. The COUNT_PAK_RECV 
correspondinfi to the destination node is incremented by ’1’, 
while the Lenfith field of the status messafie is added to 
COUNT_BYTE_RECV field. 

(7) At the end of every minute, the NODE_LIST_PTR is 
assifined a value '2' if it was previously ’1’ and vice 
versa. On demand , the User - Interface layer processes the 
Node List array used in the previous minute and displays the 
various parameters for each connection node. 

(8) The Data Base file NLDBAS.DAT is updated at the end of 
every minute with date and time stampinfi. The number of 
records added to the Data Base would depend on the number of 
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connection nodes involved in communication. 

4.3 Error Statistics. 

Uhen a packet circulatine on the rine is found to 
be in error, a status messafie is eenerated whose first byte 
is ’09'. Uhen such a status messafie is processed, a record 
is added to the Data Base file CESOBAS.DAT) with the Source 
address. Destination address and the Lenfith of the packet as 
the fields. 

The justification in direct transfer of such 
information to the Data Base is in the fact that errors are 
inherently random and bursty. The User - Interface layer 
reads the records from the Data Base file on demand from the 
user. 

The next chapter explains in detail the User 
Interface layer. 



CHAPTER 5 


USER INTERFACE LAYER 

This chapter explains the software referred to as 
User Interface Layer in Section 2.2.3, that generates 
various network status displays, updates the screen data at 
regular intervals and processes commands from user. 

5.1 Design Criteria for Network Status Displays. 

The User Interface Layer is crucial in the design 

of Network Monitor especially when a IBM PC with MS - DOS is 

used for this purpose. This is because each of the following 
functions need to be executed continuously: 

(1) An interrupt service routine should receive all the 
bytes of status messages generated by Interface Card as 
explained in Chapter 4. 

(2) The contents of the circular buffer have to be processed 
every second as explained in Chapter 4. 

(3) Screen data of certain parameters have to be refreshed 
every second. 

(4) Commands from user, if any, have to be processed. 

(5) Entire screen contents have to be updated every minute. 

C6) Each of the three Data Bases has to be updated every 


minute. 
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In addition to the functions mentioned above, a 
user friendly interface is to be provided. The principal 
objective is not to overload the Network Monitor user with a 
large amount of information within short time frames. 
[KP 87] suggests the following options in a user interface: 

(a) Overview - type starting screens. 

(b) Menu - driven technique for inexperienced users. 

(c) Meaningful use of function keys for help and status 
displays . 

(d) Hardcopy option. 

(e) Zooming on events under consideration. 

(f) Powerful window management. 

(g) Screen store and recall capability. 

(h) Direct inquires for experienced users (e.g. variable 
dump ) . 

It requires, therefore, that the screen management 
routines are fast and efficient so that they do not hinder 
the functions of Data Acquisition and Data Processing Layers 
and also perform the various functions of User Interface 
layer. 

5.2 Design of User Interface layer. 

The important features of the User Interface layer 
software are as follows: 

Cl) The different display screens are stored in RAM before 
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the Data Acquiaition Layer is activated by enabling the 
interrupts. One by one, each of the screens are drawn and 
stored in the RAH. This fulfills the requirement of 
overview - type starting screens. Later, whenever the user 
requests a particular screen to be displayed, that screen is 
transferred from RAM to display. This method ensures a very 
fast generation of a display screen. 

(2) The different display screens generated are 

(a) Network Summary Statistics. 

(b) Node List Statistics. 

(c) Error Statistics. 

(d) Graphic display for Throughput. 

(e) Graphic display for Utilisation. 

Cf) Help screens for Network Summary Statistics, Node 
List Statistics & Error Statistics. 

(g) Overview Help Screen. 

The screen prints of the display screens 
are given in figures 5.1 to 5.3. 

(3) Each of the display screens can be called by the press 
of a function key. This provides a meaningful use of 
function keys and also reduces the workload of the User. 

(4) In the lower portion of each display a menu is 


provided. 
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(5) A variable dump is provided for experienced users which 
displays the current status of the important parameters in 
one display screen. 

(6) Graphic displays are provided for Throughput and Packet 
Summary each of which provides a 'snapshot' of the 
respective parameters in last 60 seconds. 

(7) There are two methods to save the screen content at 
any given instant: 

(a) Saving the screen content in a file in the current drive 
and directory. 

(b) Direct printing of the screen content on a graphic 
printer connected through LPTl parallel printer port. 
In saving the screen content in a file, the software prompts 
the user to type in the name of the file in which the screen 
content has to be saved. This is the quickest method to save 
the screen content. The saved screen may be displayed 
whenever required and may be even printed out later if 
necessary. 

(8) An option to transfer program control to the operating 
system shell is also provided. The 4iser may use this option 
to transfer the Data Bases from RAM disk to the hard 
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disk/floppy diskette or run any other program whose size is 
less than 40K Bytes. It is however required that control is 
transferred back to the monitor software within one minute, 
so that no data is lost or in error. 

The algorithm for the User Interface Layer 
software is as follows: 

(1) Each of the display screen is assigned a value. Whenever 
the user requests for a particular display screen, the 
corresponding value is stored in the variable FUNCT_KEY 
before transferring the screen from RAH to display. 

C2) The User Interface layer software accesses the computed 
results of the Data Processing layer and updates the screen 
values once every second or once every minute as required. 
For example, the Throughput and number of packets in current 
minute in Network Summary Statistics display are updated 

once every second while the rest of the parameters are 

\ 

updated once every minute. 

C3) Node List Statistics are displayed in the following 
manner : 

The Node List Array used in the previous minute is 
determined by the content of NODE_LIST_PTR. The DIRTY byte, 
of the allotted five bytes in the Node List Array as 
explained in Chapter 4 for each connection node, is checked 
for a value of ’1’ or ’3’, in which case that node was 
involved in communication in the previous minute. The values 
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stored in the other four bytes are used to update the 
display. 

(4) Whenever the user requests for Error Statistics to be 
displayed the contents of Data Base file ESDBAS.DAT are used 
to display the parameters. 

(5) The Timer - Tick interrupt ( INT ICH) is used to keep 
track of the time elapsed . At the end of every second, the 
current date and time values are determined and displayed on 
each of the screens. 

(6) When the user requests for a sraphic display of 
Throughput or Packet curve, the data values of the previous 
sixty seconds, obtained from the intermediate buffers 
THRPUT_INTri__BUF and PAKSUM_INTM_BUF are used to draw the 
graph . 

The next chapter discusses the possible 
enhancements to the work presented and also the conclusions 
drawn from the project. 



Figure 
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CHAPTER 6 


CONCLUSIONS 

This chapter describes the result of the 
impleroentation and gives suggestions for further improvement 
in performance. 

A IBM PC compatible with MS - DOS version 3.3 and 
with a 4.77 Mhz clock was used as a Network Monitor and the 
performance was tested on the PC - LAN developed at I IT 
Kanpur with two nodes. The network activity was measured 
with the help of the Monitor, the sample screen prints of 
which are given in figures 5.1 to 5.3. 

The Data Acquisition Layer was implemented in 
assembly language and the Data Processing Layer was 
implemented in Turbo Pascal. The Turbo Graphix Tool Box was 
used in the generating the various display screens of the 
User Interface Layer and Turbo Data Base Tool Box was used 
in the development of the Data Bases. This approach 
considerably reduced the system development time without 
sacrificing efficiency or flexibility. 

The Network Monitor could be used to monitor any 
other network if the Data Acquisition Layer is suitably 
modified so that status messages are sent to the Monitor in 
the format as discussed in Chapter 3. 
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The Network Monitor has been tested for the 
required performance for data rates of 192 Kbps. It could be 
used for higher data rates if a IBM PC/AT or a PC with 
higher clock speed is used. 

The design has the flexibility to include 
measurement of parameters other than those already 
discussed in this project. Thus it is possible to tailor 
the software to the specific requirement of the user. 

Uith the above mentioned features, we hope that 
the Network Monitor would give a satisfactory performance to 


the user. 



APPENDIX I 


Details of Inplenentation of PC - LAN at I IT Kanpur 

The followine description ftives the software and 
hardware details of the PC “ LAN at I IT Kanpur [SV 88]. 

A .1. OVERVIEW of the PC - LAN, 

The PC - LAN is a ring network designed and 
impleoient ed using Intel’s 8256 NUART. Each node transmits 
packets only when it captures a token. An Interface Message 
Processor ( IMP) card allows communication of the host PC with 
the ring. The data transfer process between the card and the 
Host is interrupt driven . The network is operated at 192 
Kbps. One of the nodes on the ring is designated as 
'primary', the main function of which is to initiate token 
at start-up time and when a token is lost. Each of the 
other nodes on the ring is designated as 'secondary'. 

A .2 Hardware Details of PC - LAN. 

The hardware explained above consists of a IMP 
card interfaced with the PC bus. The card essentially 
consists of a Intel 8088 CPU, a Intel 8256 MUART, a clock 
recovery circuit and driver/receiver circuit. The 74LS138 
decoder has been used to decode the address lines on the PC 
side. The PC-XT uses address ranges 340H - 347H and 360H - 
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360H - 367H have been used to read from the PC side. The 
address ranges 368H - 36FH to write any byte to the IMP 
card. RXD line of MUART is connected to preceding node’s TXD 
, and TXD line is connected to succeeding nodes RXD through 
appropriate line driver and receiver. 75110 line driver and 
75108 line receiver have been used to provide a balanced 
current drive, whenever the MUART has to transfer a byte to 
the PC ,it pulls the IRQ2 line high , which causes an 
interrupt to the PC. The PC ,then reads the byte from the 
IMP card. The transmit portion of the MUART consists of a 
transmit buffer, a transmit register and the associated 
control logic. The data byte to be transmitted is first 
written to transmit buffer. The data transfer from the 
transmit register to transmit buffer takes place during the 
transmission of start bit. 

A .3 Software details of PC - LAN. 

The ISO reference model for Open System Interconnection has 
been followed in the development of communication software. 
The data communication software is implemented in the IMP 
card which communicates with the host (PC - XT) through an 
I/O port for further processing by the upper layers. The 
primary node software is similar to secondary node with some 
minor modifications. Primary node is the node which 
initiates the circulation of the token on the ring when 
power is first turned on. The removal of circulating packets 
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is also performed by the primary node. Further, the primary 
puts the received packet in repeat buffer, if the packet is 
not addressed to it, and retransmits when it sets back the 
token. In contrast to this, the secondary node repeats the 
packet received from the network. Apart from the above 
differences, the primary node software is similar to 
secondary node software. 

Packet structure 

The followinfi packet structure format has been 
used for communication. 


STX 

DEST 

CONTROL 

SOURCE 

DISPOS 

LENl 

LEN2 

. .DATA. . 

ETX 


For bytes between STX and ETX , if byte to be sent 
is same as STX or EOF , then DLE - STX or DLE - BOP are 
respectively sent. The receiver deletes the stuffed DLE 
characters from the received data. The STX, ETX, EOP and DLE 
are standard ASCII characters as given below. 

STX = 02H , ETX = 03H , EOP = 7FH , DLE = lOH 

The DEST and SOURCE bytes give the destination 
and source address respectively. The primary address has 
been chosen to be equal to OOH and the addresses of other 
nodes may vary from OlH to OFEH. The address OFFH has been 
used for broadcast packets. 

Three bits of CONTROL byte are currently being 
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used. C7 indicates whether the packet is eoinfi from primary 
to secondary or secondary to primary. C<J indicates the 
sequence number of packet and C5 is used to distinfiuish 
between an acknowledgment packet and an ordinary packet. 
DISPOS is an extended control byte, which is not currently 


used. 


APPENDIX II 


ALGORITHtI OF THE DATA ACQUISITION LATER 


This appendix describes the various data 
structures used by the Data Acquisition Layer and also the 
algorithm of the various routines of the software. 


A2.1 Data Structures used by the Data Acquisition Layer: 

ROUTE One byte in RAM, Two bits R3 and R1 are used. 

ROUTE reports the status of operations. 

R3 1 received packet waiting in PC, the status 

message of which has to be generated and 
sent to PC 

0 otherwise, nothing waiting to be output PC 

R1 1 node is currently receiving a packet 

0 otherwise 

VECTOR vector for RXINT of the 8256 

RZCHAR RAM location containing the current byte received 

RZPRE RAM location containing the previous byte received 

RCVBUP Four buffers RCVBUFO-3, each of length (255 + 7) 

bytes, RCVBUFO . . .RCVBUF3 are also 2-byte 
constants indicating the start addresses of the 
respective buffers. These are used to store 
received packets. Each of these receive buffers 
is organised as follows - 

BUFSTAT B7 - BO status of this buffer 

DEST Destination address of received 

packet 

CONTROL Control field of received packet 

SOURCE Source address of received packet 

DISPOS Disposition byte 

LENl Equal to 00 

LBN2 Length of packet (0 - 255) 



45 


RCVINP 

BUFPNTI 


Actual data content 


Tall Marker needed to detect 
error packets 


Initialise BUFSTAT of each RCVBUF to 00 at 
start-up 

The individual bits B7- BO of each BUFSTAT 
imply the following - 


B7 - B3 
B2 = 1 
= 0 
B1 = 1 
= 0 
BO = 0 


= 1 


unused 

this buffer is being emptied to 

the PC 

otherwise 

this buffer is being filled from 

network 

otherwise 

this buffer is empty (or being 
filled) 

otherwise(being full or being 


2-byte pointer in RAM indicating the location 
in RCVBUF to be filled next with byte from 
network 

BI7-BI0 A 1-byte pointer in RAM indicating the 
RCVBUF to be used next to input from networkfif 
it is empty; if it is not empty, data cannot be 
accepted from the network) 

Initialise BUFPNTI to 00 at start up. The 
Individual bits of BUFPNTI imply the following 


BI7 - BI2 

unused 

BIl.BIO 

00 

for RCVBUFO 


01 

for RCVBUFl 


10 

for RCVBUF2 


11 

for RCVBUF3 

stores 

f irst 

byte of status message 


STAT FIRST 
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STAT__SOURCE 
STAT_DEST 
STAT LEN 


stores the source address field of the arrived 
packet and therefore of the status inessafie 

stores the destination field of the arrived 
packet 

stores the length field of the arrived packet 


Other RAM storage locations for internal processing 


DESTR 

CNTRLR 

SRCER 

DISPOS 

LENRl 

LENR2 

RCVIN 


1-byte 

1-byte 

1-byte 

1-byte 

1-byte 

1- byt e 

2- byte back-up address pointer 


A2.2 Algorithn of the firmware 


SECOND Initialisation routine for secondary 


[1] Initialize 8256 for network interface. 

[2] Initialize RXPRE = OOH 

ROUTE = OOH 
RXCHAR = OOH 

[3] Initialize BUFSTAT = 00 for each RCVBUF (0 - 3) 

BUFPNTI = BUFPNTO = OOH 


[4] Initialize 


stack, enable RXINT and go to MASTER 


MASTER 

tl] if R3 of ROUTE is 1 then call PCOUTP 
else go to [1] 


RXINT Interrupt Service Routine executed on receiving 

a character 

[1] Save all registers on stack 

[2] (RXPRE) a (RXCHAR) 

[3] ( RXCHAR )= Rcvd. byte from 8256 

[4] If Rcvd. Byte in error 
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{a} (RXCHAR)=00 

Reaet 8256 error flags 
Juap to INIT 


Else if CRXCHAR)=STX or EOF 

{b> Jump to instruction at location VECTOR 


else continue to [5] 

[5] If (RXPRE)=DLE go to [4b]; 

16 } If (RXCHAR)=STX, then 

{a} Reset R7=R6=R5=R4=R1=0 
{b> For BUFPNTI = 00 
BUFPNTI =01 
BUFPNTI =10 
BUFPNTI =11 
{c} RCVIN*RCVINP 
(d) VECTOR=STX_FOUND 
{e} Restore all registers 

{g} Reenable interrupts 
{h> Return 

[7] If (RXCHAR)»EOP, then 

{a} Reset R7=R6=R5=R4=R1=0 
{b} For BUFPNTI = 00 
BUFPNTI =01 
BUFPNTI =10 
BUFPNTI =11 

(c) RCVIN=RCVINP 

(d) VECTOR=INIT 

ZNIT 


Ise continue 


RCVINP = RCVBUFO 
RCVINP = RCVBUFl 
RCVINP = RCVBUF2 
RCVINP = RCVBUF3 


(ie. those saved by [1] of 
RXINT) 


RCVINP = RCVBUFO 
RCVINP = RCVBUFl 
RCVINP = RCVBUF2 
RCVINP = RCVBUF3 


[1] Reset R7«R6»R5»R4=R1=0 

[2] VECTOR- INIT 

[3] Restore all registers (ie. those saved by [1] of RXINT) 

[4] Reenable interrupts 

[5] Return 

STX_F0UMD 

[1] (DESTR)=(RXCHAR) VECTOR=DEST_FOUND 

[2] Restore all registers (ie. those saved by [1] of RXINT) 

[3] Reenable interrupts 

[4] Return 
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DEST_FOU!ID 

[1] If (RXPRE)=DLE and { (RXCHAR)=STX or (RXCHAR)=EOP} , then 

fto to [1] of STX_FOUND; 

Else continue. 

[23 (CNTRLR)=(RXCHAR) VECTOR=CNTRL_FOUND 

[3] Restore all registers (ie. those saved by [1] of RXINT) 

[4] Reenable interrupts 

[5] Return 

CIITRL_FOUND 

[1] If (RXPRE)=DLE and { (RXCHAR)=STX or (RXCHAR)=EOP} , then 

(CNTRLR) = (RXCHAR) and go to [4] of DEST_FOUND; 

Else continue. 

[2] CSRCER)=(RXCHAR) VECTOR=SOURCE_FOUND 

[3] If CNTRLR7=0 jump to INIT 

If CNTRLR7=1 then go to [4]. 

[4] Restore all registers (ie. those saved by [1] of 

RXINT) 

[5] Reenable interrupts 

[6] Return 

SOURCE_FOUND 

[1] If (RXPRE)=DLE and { (RXCHAR)=STX or (RXCHAR)=EOP) , then - 
(SRCER)=(RXCHAR) and go to [4] of CNTRL_FOUND; 

Else continue. 

[23 (DISPOS)=(RXCHAR) VECTOR=DISPOS_FOUND 

[33 If CNTRLR7=1 and CNTRLR5=1 then R4=l 

[43 Restore all registers (ie. those saved by [13 of RXINT) 
[53 Reenable interrupts 
[63 Return 

DISPOS.FOUND 

[13 If (RXPRE)=DLE and { (RXCHAR)=STX or (RXCHAR)=EOP ) , then 
(DISPOS)=(RXCHAR) and go to [53 of SOUND_FOUND; 
Else continue. 

[23 (LENR1)=(RXCHAR) VECT0R=LEN1_F0UND 

[33 Restore all registers (ie. those saved by [13 of 

RXINT) 

[43 Reenable interrupts 
[53 Return 
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LEN1_F0UND 

[13 If (RXPRE)=DLE and { (RXCHAR)=STX or (RXCHAR) = EOP } , 
(LENR1) = (RXCHAR) and go to [3] of DISPOS_FOUND 
Elae continue. 

[2] (LENR2) = (RXCHAR) VECTOR=DATA FIND 

[3] If (LENRl) = 00 jump to INIT 

[4] Restore all registers (ie. those saved by 

RXINT) 

[5] Reenable interrupts 
[63 Return 


DATA FIND 


[13 If (RXPRE)=DLE and { (RXCHAR)=STX or (RXCHAR)=EOP } 
(LENR2)*=CRXCHAR) and go to [43 of LEN1_F0UND; 
Else continue. 

[2 3 C COUNT )=»CLENR2) 

[33 If R4-0 then 


(RCVINP) « xxxxxOlO 

RCVINP»RCVINP+1 

(RCVINP)=(DESTR) 

(RCVINP)>=(CNTRLR) 

(RCVINP )=(SRCER) 

(RCVINP)=(DISPOSR) 

(RCVINP)=(LENR2) 


ie. B2,B1,B0 Set Rl»l 

RCVINP=RCVINP+1 

RCVINP=RCVINP+1 

RCVINP=RCVINP+1 

RCVINP=RCVINP+1 

RCVINP=RCVINP+1 


[43 If (COUNT)=00 go to SEARCH_ETX 
[53 If R4*0 then 

{a} (RCVINP) =(RXCHAR) 
RCVINP=RCVINP+1 
go to [63 


[63 (COUNT) »(C0UNT)-1 

If (COUNT)»00 then VECTOR=SEARCH_ETX 
Else VECTOR»DATA_FOUND 

[73 Restore all registers (ie. those saved by 

RXINT) 

[83 Reenable interrupts 
[93 Return 


then 


13 of 


then 


13 of 



50 


DATA_POUND 

[1] If CRXPRE) = DLE and { (RXCHAR)=STX or (RXCHAR)=E0P ) then 

[al RCVINP=RCVINP-1 C0UNT=C0UNT+1 
Else continue. 

[2] If R4=0 fio to [5a] of DATA_FIND 

[3] Go to [61 of DATA_FIND 

SEARCH_BTX 

[1] If (RXPRE)=DLE and { CRXCHAR)=STX or (RXCHAR)=E0P } then 

fiO to [la] of DATA_FOUND 

[2] If (RXCHAR)=ETX, jump to INIT 

[3] If R4=0 then 

<a} (RCVIN)=xxxxx001 (nark buffer full) 

{b} Increment BUFPMTI by 1 (mod 4 increment) 

(c) Set R3=l 

[4] Jump to INIT 

FCOUTF 

[1] Save reftisters 

[2] Disable interrupts 

[3] If buffer full then transfer values into STAT_S0URCE, 

STAT_DEST, STAT_LEN. Check for Tail Narker at the end of 
packet. If found then STAT_FIRST = 02 else packet 

received is in error and STAT_FIRST=09 

[4] Transfer the bytes STAT_FIRST, STAT_SOURCE, STAT_DEST, 
STAT_LEN to port 

[5] Enable interrupts 

[6] Restore registers 

[7] Return 



APPENDIX III 


PROGRAH LISTING FOR DATA PROCESSING AND 
USER INTERFACE LAYERS 


The followine is the assembly laneuace profiram listine of 
the source code that receives the bytes of the status 
messaees and places them in circular buffer. This program 
is assembled to a file HEADERAQ.OBJ and linked to main 
program coded in pascal. 


Name Headeraq.asm 
data segment PUBLIC 

EXTRN BYTEFLAG : byt e , ERROR : byt e .UPDATE : byt e 
EXTRN BUFF_PTR : word , R INGBUFF : byt e 
EXTRN NEW_PKT_FLAG:byte,MINUPDATE:word 

EXTRN NO OF__BYTES_SEC: word, ASCI I_VALUE: byt 6, NO_KEY: word 

EXTRN PAKSUMCUR_MIN: word, NO_OF_PACKETS_SEC: word 

EXTRN THRPUT_INTn_BUF : word , PAKSUM_INTII_BUF : word , RESULT : byt e 

EXTRN INTM_BUF_PTR : word , R INGUPTIME : word 

EXTRN SECCOUNT : word , MINCOUNT : word , SECUPDATE : word 

data ends 

code segment PUBLIC 

assume cs : code, ds: data, es: data 
PUBLIC INITIR02 
PUBLIC IRQ2_Handler 


; The following is the interrupt service routine executed 
; when the Interface Card raises a IRQ2 interrupt . 


IRQ2_,Handler proc near; Routine A1 
sti 

push ax 

push si CE^'T^ 

push dx ' 

push ds 

mov ax, data Acc. No. 

mov ds , ax 

mov dx,340h 

in al,dx 

inc BYTEFLAG 

cmp BYTEFLAG, 04 

inz last 

mov BYTEFLAG, 00 

add NO OF BYTES__SEC, 08h 


1058 


■ary 

[i'lT 


52 



mov 

ah, 00 


add 

N0_0F_BYTES sec, ax 


inc 

no_of_packets_sec 

last 

:cli 



mov 

si, BUFF PTR 


mov 

RINGBUFFtsi],al 


inc 

BUFF PTR 


cmp 

BUFF_PTR, 32000 


jnz 

cont 


mov 

BUFF_PTR,0000 

cont : 

St i 



mov 

al , 20h 


out 

20h,al 


pop 

ds 


pop 

dx 


pop 

si 


pop 

ax 


iret 


IRQ2__Handler endp 


; The £ollowinfi is the routine that enables the IRQ2 
; interrupt and invoked by a main program coded in 
; Pascal (NETWORK MONITOR) 

INITIRQ2 proc near {Routine A2 

; Set up the communication interrupt vector for IRQ2 

push ds 
push dx 
push ax 

aiov dx, OFFSET IR02_Handler 

mov ax,SEG IRQ2_Handler 

mov ds , ax 

mov al , Oah 

mov ah,25h 

int 21h 

Clear the Interrupt mask register of 8259 

mov al, 00000000b 

out 21h,al 

pop ax 

pop dx 

pop ds 

ret 

INITIRQ2 endp 
code ends 
end 



{ The following is the type declaration of the records to be 
stored in each of the Data Bases } 

type 

keyl=string[ 6] ; 
key2=atring[8] ; 

NETDBSRBC=record 

RecStatus : longint ; 

DBSTIME :keyl; 

DBSDATE:key2; 

TPUT : longint ; 

PKET : longint ; 
end ; 

MODEL ISTDBSREC = record 
RecStatus : longint ; 

DBSTIME: keyl; 

DBSDATE:key2; 

NODEAD: integer; 

NUMBERPAK: longint; 

PAKRCV: longint; 

NUMBERBYTE ; longint ; 

AVERAGES! ZE : int eger ; 

RECEIVEDNO : longint ; 
end ; 

ERRORSTATDBSREC * record 
RecStatus : longint ; 

DBSTIME: keyl ; 

DBSDATB:key2; 

SOURCE_ADDRESS : integer ; 

DEST_ADDRESS: integer; 

LENGTH_PACKET : longint ; 
end; 

MaxDataType=NODELISTDBSREC; 

MaxK6yTyp6=key2 ; 

PROGRAM NBTUORK MONITOR; 

{$L HEADERAQ} 

{$M $4000,250000,350000) 

uses Crt , Dos , Turbo3 , Graphs , Graph , Printer , Gdriver , Gwindow , 
Gshell .Gkernel ,diaplib, taccesa ,tahigh; 

{$I DATABASE . TYP ) 

{ USERINT is the compiled library of routines that generates 
the various display screens, while taccess and tahigh are 
the units of Turbo Data Base ToolBox generated with the 
type declarations given DATABASE . TYP . The rest of the units 
specified in the uses statement are the Turbo Pascal and 
Turbo Graphix Toolbox ) 


label 200,500; 
const 

”AX_BYTE_IN_SEC=800 ; 


type 

DBSTYPE=record 

RecStatus : longint ; 
DBSTIME:atrin6[6]; 
DBSDATE:atring[8] ; 

TPUT : longint ; 

PKET : longint ; 
end; 

NODELISTDBSTYPE=record 

RecStatus : longint ; 

DBSTIME :string[ 6] ; 
DBSDATE:string[83 ; 

NODEAD: integer; 

NUMBERPAK: longint; 

PAKRCV : longint ; 

NUMBERBYTE: longint; 

AVERAGES I ZB: integer; 

RECEIVEDNO: longint; 
end; 

ERRORSTATDBSTYPE=record 
RecStatus : longint ; 
DBSTIME:string[6]; 
DBSDATE:string[8] ; 

SOURCE_ADDRESS : int eger ; 
DEST_ADDRESS: integer; 
LENGTH_PACKET : longint ; 
end ; 

VecPtr = Pointer; 

var 

{ variables for NETUORK SUMMARY correspondingly 
iniatialised by INITNETSUM procedure } 
RINGUPTIME : int eger ; 

RINGDOUNTIME; integer; 

SAMPLETIME: real; 

THRPUTPEK_OVER_HR : longint ; 
THRPUT_AVG_MN: longint ; 
THRPUT_IN_PREV_MIN: longint ; 
THRPUTCUR_MIN : 1 ongint ; 

UT I L IS_AVG_MN : r eal ; 

UTIL ISP EK_0VER_HR: real ; 

UTILIS IN_PREV_MIN:real; 

PAKSUmIiN PREV_MIN: longint; 

PAKSUM AVG_MN: longint; 
PAKSUMCUR_MIN : longint ; 

PAKSUMPEK 0VER_HR : longint ; 
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N0_0F_MINUTES : integer; 

MAX_BYTE_IN_MINUTE: longint ; 

RECORDS IN DBAS : int eger ; 

RECORDS~IN_NLDBAS : int eger ; 
RECORDS__IN_ESDBAS : integer ; 

{ variables for ASSEMBLY language routines correspondingly 
initialised by INITASSEMBLYVAR procedure } 

SECCOUNT , MINCOUNT : word ; 

SECUPDATE,MINUPDATE, FIRST, NO OF BYTES SEC: integer; 
NO_OF_PACKETS_SEC: int eger; ~ ~ 

BYTEFLAG , ERROR .UPDATE : byt e ; 

BUFF_PTR: int eger ; 

RINGBUFF:array[0. .31999] of byte; 

NEU_PKT_FLAG:byte; 

{ variables used for EVERY SECOND PROCESSING correspondingly 
initialised by INITPROCESSEC procedure ) 

UP_TP PREV_SEC:r6al; 

SKI P_FLAG: integer; 

READ_BYTE:byte; 

PIPE_FLAG:word; 

PIPE_PTR:word; 

MATCH_INTM_BUF_PTR : int eger ; 

ALREADY_IN ,NO_KEY : int eger ; 

ASCI I_VALUE: char; 

SOURCEAD , DESTAD , HEADER_STATUS : int eger ; 

KOUNT , LENGTH : int eger ; 

{ variables used by GRAPHIC routines correspondingly 
initialised by INITGRAPHICVAR procedure } 

THRPUT_OVER_HR : array [1..60] of longint; 
PAKSUM_OVER_HR: array [1..60] of longint; 
UTILIS_OVER_HR:array [1..60] of real; 
THRPUT_SEC:PlotArray; 

UT I L I S_SEC : P 1 ot Array ; 

PAKSUM_SEC : P 1 ot Array ; 

THRPUT SEC_PTR: integer; 

UT I LIS“'SEC_PTR: integer; 

PAKSUM“SEC PTR: integer; 

THRPUTJIIN_PTR : int eger ; 

UTILIS MIN PTR; integer; 

PAKSUM_MIN~PTR : int eger ; 

THRPUT INTM_BUF : array [1. .60] of integer; 

INTM_BUF_PTR : integer ; 

PAKSUM_INTM__BUF : array [1. .60] of integer; 

{ variables used by NODE LIST STATISTICS 

correspondingly initialised by INITNODELISTVAR 
procedure > 

NODE LIST_ARRAY1 : array [0. .1550] of longint; 
N0DE~LIST_ARRAY2;array[0. .1550] of longint; 
NODE LIST PTRrinteger; 



INDEX : int eger ; OFFSET_VALUE : int eger ; 
NODE_LIST_UPDATE_FLAG: integer; 

{ variables used by ERROR LIST STATISTICS 

correspondingly initialised by INITERRORLISTVAR 
procedure } 

PAKINERROR.-longint; 

ERROR_FLAG : int eger ; 

CURRENT_ERROR_LIST_PTR : integer ; 
NO_OF_TOKEN_LOSSES: integer ; 

{ MISCELLANEOUS and DATA BASE variables that need 
not be iniatialised } 

GraphDriver ,GraphMode, I .-integer; 

FUNCT_KEy , PREV_FUNCT_KEY : int eger ; 

IntlCSave: VecPtr ; £naH>e_str :string[ 12] ; 
ch , chr : char ; RESULT : byt e ; 

dbas ,nldba8 , esdbas : DataFile; 

NuffiberRec : longint ; 

THROUGHPUT : longint ; 

PACKET: longint; 

DDATE:string[8] ; 

DTIME:string[6] ; 

STHR : string[ 2 ] ; 

STMN:0trlng[2] ; 

STSC : str ing[ 2 ] ; 

STyYYY:string[4] ; 

STMM:string[ 2 ] ; 

STDD: string [ 2 ] ; 


InputRecrDBSTYPE; 

DBSRECrDBSTYPE; 

NLDBSREC : NODELISTDBSTYPE ; 

ESDBSREC : ERRORSTATDBSTYPE ; 

{ procedure to open the data base file DBAS.DAT in 

virtual disk D ) 

procedure lfetSu*_DataBase_Build; {Routine #1} 
begin 

OpenFileCdbas, ’D: DBAS. DAT’ .SizeOf (DBSREC) ) ; 
if not OK then 

MakeFileCdbas, ’D:DBAS.DAT’ , SizeOf (DBSREC) ) ; 

if not OK then ,,i 

wrlte( ’Could not open or create the data file ); 

{ procedure to open the data base file NLDBAS.DAT in 

virtual disk D) 
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proc*dur® Nod®Liat_DAtaB®a«_Build; {Routin® # 2 } 

begin 

OpenF i 1 e ( n 1 dbaa , * D : NLDBAS . DAT ' , Si z eO £ ( NODEL ISTDBSREC ) ) ; 
if not OK then 

MakeFileCnldbas, ’DrNLDBAS.DAT’ ,SizeOf (NODELISTDBSREC) ) ; 
if not OK then 

writeC ’Could not open or create the data file’); 
end ; 

{ procedure to open the data base file ESDBAS.DAT in 

virtual disk D } 

procedure lrroratat_DataBas®_Bui Id; {Routine #3) 

begin 

OpenFile(esdbas, ’ D: ESDBAS. DAT ’ ,Siz60£(ERR0RSTATDBSREC) ) ; 
if not OK then 

MakeF i 1 e < eadbas , ’ D : ESDBAS . DAT ’ , Si z eO £ ( ERRORSTATDBSREC ) ) ; 
if not OK then 

writeC ’Could not open or create the data file’); 
end; 

{ procedure to update NODE LIST STATISTICS data base } 
procedure MODELISTDBSUPDATE; {Routine #4) 
begin 

NLDBSREC . RecStatus : =00 ; 

Str(HR,STHR) ; 

StrCMN,STIIN); 

Str(SC,STSC) ; 

NLDBSREC. DBSTIME: =Concat(STHR, ’ : ’ ,STMN, ’ : ’ ,STSC); 
Str(YYYY,STYYYY); 

Str(MM,STMM); 

St r C DD , STDD ) ; 

NLDBSREC. DBSDATE:=Concat(STMM, ’ : ’ ,STDD, ’ : ’ ,STYYYY) ; 
AddRecCnldbas ,NuinberRec , NLDBSREC) ; 
RBCORDS_IN_NLDBAS : =NuiBberRec ; 

end ; 

{ procedure to update ERROR STATISTICS data base } 

procedure ERRORSTATDBSUPDATE; {Routine #5) 

begin 

ESDBSREC .RecStatus : =0 ; 

Str(HR,STHR); 

Str(MN,STMN); 

Str(SC STSC); 

ESDBSREC.DBSTIME:=Concat(STHR, ’ : ’ ,STMN, ’ : ’ ,STSC) ; 
Str(YYYY,STYYYY); 

Str(MM,STMM); 

Str(DD,STDD); 

ESDBSREC.DBSDATE:=Concat(STMM, ' : ’ ,STDD, ’ : ’ ,STYYYY) ; 
AddRecC esdbas .NufflberRec, ESDBSREC) ; 

RECORDS IN ESDBAS :=NuioberRec; 



end; 


{ procedure to display the records in DBAS.DAT } 
procedure DISPDBSFILE; {Routine #6} 

var NuroberOf Records , RecordNumber : longint ; KOUNT : integer ; 
begin 

NuraberOfRecords : =FileLenCdbas) ; 

ClearScreen; 

GotoXYCl ,1); 

writelnC ’Records in Network Summary Data Base’): 

KOUNT :=0; 

for RecordNumber : =1 to NumberOfRecords-1 do 
begin 

Inc (KOUNT); 

GetRecCdbas , RecordNumber , DBSREC) ; 
if DBSREC. RecStatua=0 then 
begin 

with DBSREC do 
begin 

writeln; 

writelnC 'TIME: ' , DBSTIME, ’ DATE: ’ ,DBSDATE, 

’ THROUGHPUT: ’ ,TPUT, ’ PACKET PKET) ; 

end; 

end ; 

if DBSREC. RecStatus=l then 
begin 

wr it #ln( ’ InputRec RecStatus=l ' , 

’ NumberRec= ’, RecordNumber) ; 

end ; 

if (K0UNT»8) then begin 
KOUNT :=0; 

GotoXY(2,22); 

writeC’ PRESS RETURN TO CONTINUE...’); 
repeat 

ch:=readkey; 
until (ch=#13); 

ClearScreen; 

GotoXYCl,!); 

end; 

end; 

end ; 

{ procedure which displays the records in NLDBAS.DAT 

procedure DISPNLDBSFILE; (Routine #7) 

var NumberOf Records .RecordNumber : longint ; KOUNT : integer ; 
begin 

NumberOfRecords :=FileLenCnldbas) ; 

ClearScreen; 

GotoXY(l,l); 

writ elnC ’ Records in Node List Statistics Data Base’); 
KOUNT: =0; 

for RecordNumber:^! to NumberOfRecorda-l do 
begin 
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Inc (KOUNT); 

GetRec(nldbas, R ec or dNunb er , NLDBSR EC ') • 

if NLDBSREC.RecStatus=0 then 

be£in 

with NLDBSRBC do 

begin 

writeln; 

writelnC 'TIME:®' .DBSTIME, ’DATE: = ’ .DBSDATE, 
’NODEAD:=’ , NODEAD, ’PAKXMIT:=’ .NUMBERPAK, 

'PAKRCV:=' .PAKRCV, ’ : ’ .NUMBERBYTE, ' : ' .AVERAGES I ZE) ; 

end ; 
end ; 

if NLDBSREC.RecStatus=l then 
begin 

writelnC * InputRec RecStatus = l ’ , 

’ Nun»berRec= ’ .RecordNumber) ; 

end ; 

if CK0UNT*8) then begin 
KOUNT :=0; 

GotoXY(2,22); 

write (’PRESS RETURN TO CONTINUE...’); 
repeat 

ch; =readkey ; 
until Cch=#13); 

ClearScreen; 

GotoXYCl.l); 

end; 

end ; 

GotoXY(2,22); 

writ e( ’PRESS RETURN TO CONTINUE ’); 

repeat 

ch : “readkey; 
until (ch»#13); 

end; 

{ procedure which displays the records in ESDBAS.DAT } 
procedure DISPESDBSFXLE; (Routine *8} 
var NunberOf Records , RecordNumber : longint ; KOUNT : integer ; 
begin 

NunberOf Records : =Fil eLen( esdbas ) ; 

KOUNT: -0; 

for RecordNumber:®! to NumberOfRecords-l do 
begin 

Inc (KOUNT); 

GetRec( esdbas .RecordNuwber , ESDBSREC) ; 

if ESDBSREC. RecStatus=0 then 

begin 

with ESDBSREC do 
begin 

GotoXY(2,KOUNT + 8); 


writeCDBSDATE) ; 

GotoXY(12,K0UNT +8); 
writeCDBSTIME) ; 

GotoXY(24,KOUNT + 8); 
write(SOURCE_ADDRESS) ; 

GotoXYC41,K0UNT + 8); 
wr i t e ( DEST_ADDRESS ) ; 

GotoXY(59,KOUNT +8); 
write ( LENGTH_PACKET ) ; 
end; 
end ; 

if ESDBSREC . RecStatus=l then 
begin 

wri teln( ’ InputRec RecStatus=l ’ , 

’ NuaiberRec*’ ,RecordNumber) 

end ; 

if (K0UNT«8) then begin 
KOUNT:=0; 

GotoXY(2,22); 

writeC'PRESS RETURN TO CONTINUE., 
repeat 
ch:«readkey; 
until (ch»#13); 

ReatoreUindow(3,0, 0) ; 
end; 

end ; 

end ; 

{ Initialisation routines for the variables defined 
procedure HflTVARNETSUH; {Routine #9} 
begin 


THRPUTCUR_I!IN:=0; 

THRPUT_IN_PREV MIN:=0; 

THRPUT_AVG_I1N : «0 ; 

THRPUTPEK OVER_HR:=0; 

UTILIS IN-PREV I1IN:=0; 

UTILIS“aVG MN:«0; 

UTILISPEK OVER HR:=0; 

RINGUPTmE:»0;” 

RING0OUMTIME:*O; 

SAMPLETIME: -1.0; 

PAKSUMCUR MIN:»0; 

PAKSUM in'" PREV MIN:»0; 

PAKSUM”AVG MN:»0; 

PAKSUMPEKJoVER_HR : =0 ; 

NO OF MINUTES; *0; 

MAX_BYTE_IN_MINUTE: = (MAX_BYTE_IN_SEC * 60); 

procedure INI TVARASSEMBLY; {Routine #10) 

begin 

SECCOUNT:»0; 


flINCOUNT:=0; 

SECUPDATE:»0; 

MINUPDATE:=1; 

FIRST:=1 ; 

NEU__PKT FLAG : =01; 

NO_OF BYTES_SEC:=0; 

NO„OF_PACKETS_SEC : =0 ; 

INTM_BUF_PTR:=0; 

BYTEFLAG:=0; 

dnd ; 

proctdur* INITPROCESSECVAR; {Routine #11} 

begin 

PIPE FLAG:=0; 

BUFF3pTR:=0; 

READ BYTB:=0; 

UP_TP PREV SEC:»0; 

PIPE_PTR:-0; 

MATCH INTM_BUF_PTR:=1; 

ALREADY IN:»0; 

NO KEY:«0; 

ASCII_VALUE: = ’0' ; 

KOUNT:»0; 

end; 

procedure INXTDBASVAR; (Routine #12} 

begin 

THROUGHPUT :«0; 

PACKET :»0; 

RECORDS_IN DBAS:=0; 

RECORDS_IN~NLDBAS : =0 ; 
RECORDS_IN_ESDBAS : =0 ; 

end ; 

»f»«t4urt lltlTltODILIfmili(Routlnt «!)) 

var I: integer; 
begin 

for I;»*0 to 1550 do N0DE_LIST_ARRAY1 [ I ] 
for l!*0 to 1550 do N0DE_LIST_ARRAY2 [ I ] 
N0DE_LIST PTR:»1; 

INDEX :«0;“ 

OFFSET VALUE ;»0; 

NODE_lTsT_UPDATE_FLAG : =0 ; 

end ; 

procedure INITERRORSTATVAR; {Routine #14) 

var I: integer; 
begin 

PAKINERROR:=0; 
CURRENT_ERROR_LIST_PTR:=0 ; 

NO OF TOKEN LOSSES: =0; 


end; 


proc«clur« INITGRAPHICVAR; {Routine #15} 

var I : integer ; 
begin 

for I; = l to 60 do THRPUT__SEC[ 1 , 1 ] : = I ; 
for I:®1 to 60 do THRPUT SEC[I,2]-=o’ 
THRPUT_SEC_PTR:=1; 

for I:«l to 60 do UTILIS_SEC[ 1 , 1] : = I ; 
for I: = l to 60 do UTILISj5EC[I,2] :=0; 
UTILIS_SEC_PTR:=1; 

for I:=l to 60 do PAKSUM_SEC[ 1 , 1 ] : = I ; 
for I:=l to 60 do PAKSUM SEC[I,2]:=0: 
PAKSUI1_SEC_PTR : = 1 ; 

for I: = l to 60 do THRPUT_INTM BUF[I]:=0; 
INTK_BUF_PTR:*0; 

for I:»l to 60 do PAKSUM_INTM_BUF [ I ] : =0 ; 
for I:«l to 60 do THRPUT_0VER HR[ I ] : =0 ; 
THRPUT_I1IN__PTR:»1; 

for I:*l to 60 do UTILIS_0VER HRCI]:=0; 

UTILIS MIN PTR;«1; 

for I:»l to 60 do PAKSUM 0VER_HR[ I ] : =0 ; 
PAKSUM_MIN_PTR:-1; 
end ; 

{ procedure which diaplaye those parameters of 
NETWORK SUMMARY, that need to be every minute ) 
procedure URITEDISPIflNl ; {Routine * 16 } 
begin 

GotoXY(14,8); 
writeCTHRPUT_IN PREV_MIN) ; 

GotoXYc26,8); 
write(THRPUT_AVG MN) ; 

GotoXYC37,8); 

wr i t e C THRPUTPEK_OVER_HR ) ; 

GotoXY(45 ,8) ; 

writeC UTILIS_IN_PREV MIN:7:5); 

GotoXY(56,8); 

writeC UTILIS AVG NN:7:5); 

GotoXyC67,8); 

writeC UTILISPEK OVER HR:7:5); 

GotoXy(30,14); 

writeC SAI1PLETIME;4:2); 

GotoXYC30,16); 
writeCRECORDS IN_DBAS) ; 

GotoXYC30,18); 
writeCRECORDS IN__NLDBAS); 

GotoXYC30,20); 

writeCRECORDS_IN_ESDBAS); 

GotoXYC74,17); 

writeC PAKSUM_IN_PREV_MIN); 

GotoXYC 74,19 ); 

writeC PAKSUM_AVG_MN) ; end; 


{ procedure which dieplays those parameters of 

NHTilORK 3UIiFIAR7 1 that peed to he every second. J 
procedure URITBDISPSECl ; {Routine #17} 

begin 

GotoXY(4,8); 

writeC THRPUTCUR_MIN) ; 

GotoXYC74,15); 
writeC PAKSUMCUR_MIN) ; 

end ; 

{ procedure which is invoked by the procedure that 
displays on demand the parameters of 
NODE LIST STATISTICS } 
procedure DISPLAYJMODE^LIST; {Routine #18} 
begin 

if I<20 then 
begin 

GotoXYCa, I); wrlteCNLDBSREC. NODEAD) ; 

Got oX Y (16,1); wr i t e (NLDBSREC . NUMBERBYTE ) ; 
GotoXYC 33 , 1 ) ; write(NLDBSREC.NUMBERPAK) ; 
GotoXy(47 , I) ;writeCNLDBSREC.AVERAGESIZE) ; 
GotoXYC 59 , 1 ) ; write(NLDBSREC . PAKRCV) ; 

GotoXYC69 , 1 ) ;write(NLDBSREC .RECEIVEDNO) ; 
inc ( I ) ; 

end ; 

end; 

{procedures which process NODE_LIST_ARRAYs 1 & 2 

respectively , indexing the array through node address . If 
the first byte i.e. DIRTY byte is 1 then it was involved in 
transmission to some other node in the last one minute, if 3 
then was involved only in receiving of data from some node, 
else it neither transmitted any data nor did it receive any 
data. } 

procedure fROCBSS_irODE_LISTl ; {Routine #19} 
begin 

OFFSET VALUE: »1+CINDEX-1)*5; 
i f CN0DE_LIST_ARRAY1 t OFFSET_VALUE] = l) 
then begin 

NLDBSREC . NODEAD :« INDEX ; 

Inc (OFFSET_VALUE) ; 

NLDBSREC. NUMBERPAK : =N0DE_LIST_ARRAY1 [OFFSET_VALUB] ; 

Inc (OFFSET^VALUE); 

NLDBSREC . PAKRCV : =NODE_L IST_ARRAY 1 [ OFFSET_VALUE ] ; 

Inc (OFFSET VALUE); 

NLDBSREC. NUMBERBYTE:=NODE_LIST_ARRAY1[OFFSET_VALUE3 ; 

Inc (OFFSET_VALUE) ; 

NLDBSREC . AVERAGES I ZE : = 

Round (NLDBSREC . NUMBERBYTE/NLDBSREC . NUMBERPAK ) ; 
NLDBSREC . RECEIVEDNO : =N0DE_LIST_ARRAY1 [ OFFSET_VALUE ] ; 
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if CN0DE_LIST_UPDATE_FLAG=1) then 
begin 

NODELISTDBSUPDATE; 

end 

ala® DISPLAY_NODE__LIST; 
end ; 

if (N0DE„LIST__ARRAY1[0FFSET_VALUE] = 3) then 
begin 

NLDBSREC , NODEAD : = INDEX ; 

Inc (OFFSET_VALUE); 

NLDBSREC . NUWBERPAK : =N0DE_LIST_ARRAY1 [ OFFSET_VALUE ] ; 
Inc (OFFSET_VALUE) ; 

NLDBSREC. PAKRCV:*N0DE_LIST_ARRAY1[0FFSET_VALUE3 ; 

Inc (OFFSET VALUE); 

NLDBSREC . NUKBBRBYTE : =N0DE_LIST_ARRAY1 [ OFFSET_VALUE ] ; 
Inc (OFFSET_VALUE); 

NLDBSREC . AVERAGES 1 2E ; =0 ; 

NLDBSREC. RECEIVBDNO: “NODE LIST_ARRAY1 [0FFSET_VALUE] ; 

if CNODE__LIST_UPDATE_FLAG«l) then 

begin 

NODEL I STDBSUPDATE ; 

elae DISPLAY_NODE_LIST; 
end ; *” 

end ; 

procedure P10CISS_!I00I_LIST2; {Routine #20} 
begin 

OFFSET_VALUE : » 1 + ( INDEX- 1 ) * 5 ; 
if (NODE_LIST_ARRAY2[OFFSET_VALUE] = l) 
then begin 

NLDBSREC . NODEAD : “INDEX ; 

Inc (OFFSET VALUE); 

NLDBSREC .NUMBBRPAK: *N0DE_LIST_ARRAY2 [OFFSET_VALUE] ; 
Inc (OFFSET VALUE); 

NLDBSREC. PAKRCV: -NODE LIST ARRAY2[0FFSET_VALUE] ; 

Inc (OFFSET VALUE); 

NLDBSREC. NUMBERBYTB: “NODE LIST ARRAY2[0FFSET_VALUE] ; 
Inc (OFFSET VALUE); 

NLDBSREC , AVERAGES I ZE : » 

Round (NLDBSREC , NUMBERBYTE/NLDBSREC . NUMBERPAK ) ; 
NLDBSREC. RECE I VEDNO: “NODE LIST_ARRAY2[OFFSET_VALUE] ; 
if (NODE_LIST_UPDATE_FLAG=l) then 
begin ”” *" 

NODELISTDBSUPDATE; 

end 

elae DISPLAY_NODE_LIST; 
end ; 

if (NODE_LIST_ARRAY2EOFFSBT_VALUEl=3) then 
begin — 
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NLDBSREC . NODEAD : -INDEX ; 

Inc COFFSET_VALUE); 

NLDBSREC .NUMBERPAK: =NODE_LIST_ARRAY2[ OFFSET VALUE] ; 
Inc COFFSET_VALUE); 

NLDBSREC.PAKRCV:»N0DE_LIST_ARRAY2[0FFSBT VALUE] ; 

Inc (OFFSET_VALUE); 

NLDBSREC . NUMBERBYTE : «N0DE__LIST_ARRAY2 [ OFFSET_VALUE ] ; 
Inc (OFFSET VALUE); 

NLDBSREC . AVBRAGESI ZE: »0 ; 

NLDBSREC . RECEI VEDNO : =NODE_LIST_ARRAY2 [OFFSET_VALUE ] ; 

i£ (NODE_LIST__UPDATE_FLAG=l) then 

begin 

NODELISTDBSUPDATE; 

end 

mlmm DISPLAY_NODB__LIST; 
end ; 

end ; 

{ procedure which dieplaye the pararaeters of 
NODE LIST STATISTICS on demand} 
procedure URlTEDISf 2 ; {Routine #21) 
begin 
I :»7; 

for INDEX:«0 to 255 do 
begin 

i£ NODE LIST PTR-2 then begin 

PROCESSING DE_L I ST 1 ; 
end 

elee begin 

PR0CESS_N0DE_LIST2 ; 
end ; 

end; 
end ; 

procedure URITIDIirilC3i {Routine #22} 

begin 

GotoXy(36.4); 

write(PAKINBRROR); 

end; 


{ Interrupt Service routine of INTlCh that gets executed 

every 55.54ms6c.) 

procedure IntiCHandlerCFlage.CS, IF,AX,BX,CX,DX,SI , 

D I , DS , E5 » BP : word ) ; 

{Routine #23) 

interrupt; 

begin 

Inc(SECCOUNT); 
if SECC0UNT«18 then 
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DBSREC . RecStatus : *00 ; 

DBSREC.DBSDATE:=Concat(STnil. * ; ’ ,STDD, ’ : ' .STYYYY); 
NuB»b«rRt»c : =0 ; 

AddRacCdbaa ,Nu»berRec, DBSREC ) ; 

RECORDS IN__DBAS:aNurabtrR6c; 

THRPUTCUR_ffIN:*0; 

PAKSUKCUR_?1IN:»0; 

UTILIS IN PREV_niN:*CTHRPUT IN_PREV_MIN) / 

(MAX BYTE_IN_MINUTE); 
if CTHRPUT_IN PREV HIN > THRPUTPEK_OVER_HR) then 
THRPUTPEK OVER HR:»THRPUT IN_PREV_MIN; 
if (UTILIS IN PREV MIN > UTILISPEK_OVER_HR) then 
UTIL! SP EK”0VER“HR : *UTI LIS_IN_PREV_MIN ; 
MATCH_INTM_BUF_PTRT»1 ; 
end ; 
end ; 
end; 

{ procedure that nets executed whenever MINUPDATE is found 

to be set to 1 > 

l»roo«dur« fiOCIiS_tVBi7JII!fUTE( {Routine #25) 

begin 

Inc (NO OF MINUTES); 

THRPUT AVG"‘MN:«((THRPUT_IN_PRBV_MIN) div 60); 
UTILIS”AVG‘"MN:*CTHRPUT IN PRBV_MIN)/ 

(MAX_BYTE_IN MINUTE); 

PAI£SUM_AVG_MN: •( (PAKSUM_IM_PREV_MIN) div 60T; 

end; 

{ procedure that transfera the data required to draw the 
Graph of a paraeieter in last 60 seconds. } 
procedure TRANSFBRVALUBS TRRfUTf (Routine #26} 
var TEMP_INTM_BUF_PTR: integer; 
begin — ~ 

I:«60; 

TEMP INTM_BUF_PTR : «INTM_BUF_PTR; 

while (I <> 0) do 

begin 

THRPUT_SEC[I,23:»THRPUT INTM BUF[TEMP INTM BUF PTRl; 
I:«I - 1; - - _ _ _ 

TEMP„INTM_BUF PTR:-TEMP INTM BUF_PTR - 1; 
if TEMP INTM BUF PTR « 0 then 
TEMP_INfM_BUFl.PTR; -60 ; 
end ; ~ 

end ; 

procedure TRWfSPIRVAtUtS.FACKBTi {Routine #27) 

var TEMP_INTH_BUP_PTRr integer; 
begin 

I:»60; 

TEMP_INTM_BUF_PTR ; « INTM_BUF_PTR ; 

while (I <> 0) do 

begin 
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PAKSUf1___SEC { I , 2 ] ; *PAKSUH__INTM__BUF[ TEMP INTM BUF PTR]* 

I * M I I • — * . ^ „ 4 > 

TEMP.JNTn_BUF PTR : *TEMP_,INTM BUF PTR - 1 - 
if TEMP INTM BUF PTR * 0 thsn “ 
TEMP_INfM_BUF_PTR:«60; 
end; 

end ; 

{ procedure that display® the VARIABLE DUMP } 
proc*dur« UfDMS^DIHiG^VALUES; {Routine #28} 

befiin 

GotoXY(32,3) ; 
write(KO„OF PACKETS^SEC) ; 

GotoXy(32,4T; 

wr i t e ( NO_OF_BYTES_SEC ) ; 

GotoXYC 32 , 6} ; 
writ©(INTM_BUF PTR); 

GotoXY(3«,7); 

writeCTHRPUT INTM BUF{INTM BUF_PTR]); 

GotoXyC34,8)7 

write(PAKSUM INTM BUF{INTM BUF PTR]); 

GotoXYC32.12T; 
writeCTHRPUTCUR MIN); 

GotoXY(32,13); 
writeCTHRPUT IN PREV MIN); 

GotoXY(32,l«T; 
writeCTHRPUT AVG MN); 

GotoXYC32,15T; 

wr i t « C THRPUTPEK_OVER_HR ) ; 

GotoXY(32,17); 
writeCUTILIS IN_PREV MIN); 

GotoXYC 32,18)'; 
writeCUTILIS AVG MN); 

GotoXYC32,lRT; 
writeCUTILISPEK OVER_HR); 

GotoXY(32,2l); 
writeCPAKSUMCUR MIN); 

GotoXYC32,22); 
writeCPAKSUM IN PREV_MIN); 

GotoXYC32,237; 
writeCPAESUM AVG MN); 

GotoXYC32,24T; 

wr i t e ( PAKSUMPEK_OVER_HR ) ; 

CotoXyC60,3); 
writeCMATCH INTM BUF^PTR); 

GotoXyC«2,10); 

wr i t e C NODE_L I ST_PTR ) ; 

writeCTHRPUT^INTM_BUF£MATCH_INTM_BUF_PTR] ) ; 
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GotoXy(62.8); 

wr iteCPAKSUK^IMin BUFIMATCH INTM BUF PTRIV 
GotoXy(62,13); - - _ 

writ®CBUFF PTR, ' ’ ); 

GotoXY(62,T4) ; 
writ#CPIPE_PTR, * ’); 

«nd; 

{ procedure which loada the proper HELP window on demand. } 

proe*«lur«i IBLf^PiOCBSS; {Routine #29} 

begin 

caae PlEV__FyiiCT_KEy of 

2 :ReatoreUindow79,0,0); 

3 : R®storeUindow( 10 , 0,0); 

4 : Re 0 toreUlndow(ll , 0 , 0) ; 

5 : RestoreUindow(8 , 0 ,0) ; 

6: begin end; 

7:begin end; 

8: begin end; 

9: begin end; 

10: begin end; 
end ; 

•nd ; 

procedure FI LE_Iir_PIOHPT| (Routine #30) 

begin 

GotoXyC2,22) ; 

writeC* ’); 

GotoXYC2,22); 

write(’ Enter valid Filename(in the form filename, ext ) : 
COLNO:»50; 

RO«NO:«»22; 

PRINT_I:*l; 

PTR: "T; 

ALREADY_IN:»1; 
end ; 

procedure HltSAOi^PROHPTi (Routine #31) 

begin 

GotoXY(2,22); 

writeCDo you want to SAVE in a file or PRINT? 

(Frees S for SAVE,P for PRINT)'); 


end; 


procedure R»AD_PILE_IIJUSBj (Routine #32) 
begin 
repeat 

ASCI I_VALUE: -readkey; 

if ((ASCII VALUE>#45) and CASCn_VALUE<#58) ) 

or^f (ASCII VALUB>#96) and J 

or ((ASCn~VALUE>#64) and (ASCIIJ/ALUE<#91)) THEN 

FNAMl C PTl 3 : *ASC UPVALUE i 
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Jnc (PTR); 

GotoXYCCOLNO. ROUND); 
wri Hi (ASCII VALUE); 

Inc cC0LN0)7 
PRINT_I :*PRINT_I + 1; 

«n<l ; "" 

until ((ASCII VALUE«il3) or (PRINT I>12))- 
6ot0XY(2,22);“ 

wr i t « ( ’ f j . 

FlllChArC(naai« atr .SizeOf ( fname str) ' ')• 
fnA««{ 0 ] : «’ 0 * 

£nai««_atr : -CopyC f name, 1 , (PTR-1 ) ) ; 

®n4 ; 

proca<tur« PRIIfTFACILITT; {Eoutina #33} 

bagin 

MESSAGE^PROKPT; 

repeat 

ASCII VALUE: “readkey; 

until^CASCn VALUE-*S') or (ASCII VALUE = ’a’) or 
(ASC UPVALUE -*p*) or (ASCn_VALUE = 'P'); 

begin 

i£ ( (ASCn_VALUE»’p’ ) or (ASCn__VALUE=’P’ )) then 
begin 

GotoXy(2,22); 

wr i t • C * ’ ) ; 

begin 

GotoXf (2,22); 

write(* ’); 

repeat 

until (keypreaaed*true) ; 

HardCopy(£al8e,6) ; 

ALREADY_IN:»0; 
end; 
end ; 

i£ ((ASCII VALUE* '«’) or (ASCn_VALUE= ’S’ )) then 

FILE_IN_PROMPT; 

if ( (ASC UPVALUE* *«• ) or (ASCn_VALUE* ’S’ ) ) then 
begin 

README I LE^NAME; 

SaveScreen( fna«e__atr) f 

if GetErrorCode <> -1 then FILB_IN_PROMPT; 
end; 
end : 

procedure ehowi {Routine #34) 

var 

Di r I n f o : Sear chRec ; 
begin 

ClearScreen; 

writeln; 
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GotoXYC ; 

writ<iC’ K»»y in th« Fil« nane of the file in which a 

screen is stored'); 

FILE IN PROMPT; 

READ'FILE^NAIIK; 

FindF irate fnA«e__«tr .Archive, Dirlnfo) ; 

If DoaError=0 then 
begin 

LoadScr ®en( f naaie str); 

GatoXyCJ,22); 

writeC PRESS RETURN TO CONTINUE ’); 

repeat 

ch: *readkey ; 
until (ch®#13); 

ReatoreUindow( 1,0,0); 

FUNCT_KEy;»2; 

end; 

if DoaError»2 then begin 
GotoXY(2,22) ; 

write(’FILE NOT FOUND IN CURRENT DIRECTORY ’); 
repeat 

ch : *readkey ; 
until(ch*|l3); 

end ; 

if Do«Error*ld then begin 
GotoXY(2,22); 

writeC'NO WORE FILES ’); 

repeat 

ch: ■readkey ; 
until(ch*|13) ; 

end; 

end; 

procedure DlSfGRAfHIC; {Routine #35} 

var dx,dy ,xl ,yl ,x2 ,y2 . Lines, Scale; Integer ; 


begin 

ClearScreen; 

DellneyindowC4,0,0,XMaxGlb,YWaxGlb); 
DefineWorldC 4, 0,0, 719,349); 
SelectWorldC4); 

SelectUindow(4); 

DrawBorder; 

Draw-Text (200, 10,2, 'GRAPHIC DISPLAY ’); 
SetLineStyleCO); 

DrawStralght(0, 719 , 285) ; 
DrawStraightCO, 719 , 28) ; 

MENU 2; 

end; 

procedure THRPUT_GRAfH| (Routine #30) 
begin 

DeflneUindow(<i.0,30,XMaxGlb,280)5 


D«f t , 'THROUGHPUT CURVE’ ); 

S<sl 0rtUiridow( 6 ) ; 

S®tH»'ad<*i 0»* ; 

l)#»fini^Uoi 14(6,0,0,60,1800); 
S«l**ctyoi 14 ( 6 ); 

DrawA* iaC^, 9, 5, 12, 5, 18, 0,0, true ) ; 

Di AwPo 1 y«ori( THRPUT SEC , 1 , 60 , 7 , 2 , 0 ) ; 

G«toXy(2,B); 

wr ite( ’T’ ) : 

GotoX¥(2,9); 
writeC ’H’ ) ; 

GotoXYC2,10); 
writ#( ’ R ’ ) ; 

GotoXY(2, 11 ); 
writ«( *0' ) ; 

GotoXY(2, 12); 
writdC ’U' ); 

GotoXY(2,13); 
writ«( 'G* ); 

GotoXYC2.1l); 

writ*C ’H’ ) ; 

GotoXY(2,lS); 
wrAt*( ' P ’ ) } 

GotoXY(2,16); 
wr i t « C * U * ) ; 

GotoXY(2,l7); 
writaC *T’ ); 


GotoXY(l,9); 
writ«( ’ B’ ) ; 
GotoXY(4,l0); 
writ«( 'f ’ 
GotoXY(4,ll); 
writ«C ’T* ); 
GotoKYC4,l2)s 
writ«( ’E’ ); 
GotoXY(4,13); 
wr it«( ’S’ ) j 
GotoXy(4,l4); 
wr i t * C * / * ) ; 
GotoXYC4,l&); 
writ«( *S* ) ; 
GotoXY(4,l6); 
writ«( ’B* ); 
GotoXf (4 , 17) ; 
wrlt«( *C’ ) ; 
G0toXfC2O,2O)| 

writa( * < 

0r&wBord«r; 


T I M B(ln a«conda) 
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proc«<l«r« PACKIT_,GtAPH| <Routi»« |37) 

btgin 

D«f ineUindow( 7 , 0 , 30 ,XHAXGlb, 28 < 5 ); 

in«?H.!^a«r (7 . 'PACKET CURVE’); 

S #1 ♦‘ctU i ndowC 7 ) ; 

S«lH«4*d(t»i'On ; 

D«f in#yor id ( 4 , 0 , 0 , 60 , 1800 ) ; 
Sol«ctUorld( 4 ) ; 

DrawAxi a( 9 , 9 , 5 , 12 , 5 . 18 , 0 , 0 , tru®) ; 
DrawPolyfionCTHRPUT SEC, 1 , 60 , 7 . 2 , 0 ); 
GotoXY( 4 , 8 ); 
writhe ' P ’ ) ; 

GotoXy(4,9); 
writ®( ' A' ) ; 

GotoXy(4 , 10); 
writ«( 'C' ) ; 

GotoXY( 4 , 11 ); 

writhe ’K' ); 

GotoKYCI, 12); 
writ«C ’E’ ); 

CotoXYC4, 13); 
wrlt«C 'T' ); 

GotoKYC4,14); 
writ«C ‘S' ); 

GotoXYCi, 15); 
wrlt«C * / * ) ; 

CotoXYCI, 16); 
wrlt«C 'S’ ) ; 

GotoXY(4, 17); 
writeC ' E’ ) ; 

GotoXYC4, IS); 
writ®( *C’ ) ; 


GotoXY(20,20); 

wf 1 t«C * < 


f I M ECin aeconda) — 


OrAwSordar ; 


•Ad ; 


proc*dur« lAflSCRlIWSITUPi {Rotttin* #38) 
var ch;char;ArcXl,ArcTl,ArcX 2 ,ArcY 2 . , 

begin 

InitGraphic; 

f 

DrawStrAightC109,629,50); 

DrawLln®( 109 , 50 , 109, 174); 
DrawStraightC 109 , 629,174); 
DrawLln#(629,l74,629,50); 

DrawtlneC 405, 174.405,209); 
Dr«wLifi«(3S5,209.355,244)j 
DrmwLin«(355.244,455,244); 
Dr&wiiiiti(455.244,455.209); 
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DrawLin®(455 ,209,355,209); 
DrawLin®C405,244,405,269); 
DrawLineC 405 ,269,249,269); 
DrawLineC 249 ,290,249,259); 
DrawLin«(239,199,249,225); 
DrawLineC 249 ,225,2 49,254); 
DrawLin®( 2 24 ,209,109,209); 
DrawLineC 109 ,209,129,199); 
DrawLineC 129 ,199,239,199); 
DrawLineC 239, 199, 224, 209); 
DrawLineC 109, 209, 109, 274); 
DrawLineC 59 ,310,224,310); 
DrawLineC 224 ,310,224,279); 
DrawLineC 2 24, 310, 249, 290); 
DrawLineC 59, 27 9, 224, 279); 
DrawLineC 59, 279, 59, 310); 
DrawLineC 59, 27 9, 89, 259); 
DrawLineC89, 259, 109,259); 
DrawLineC 249, 259, 245, 259); 
DrawLineC 224, 274, 224, 209); 
DrawLineC 109, 274, 224, 274); 
DrawLineC 224 ,274,249,254); 
DrawLineC 224, 279, 249, 259); 
DrawLineC 178,285, 218,285) ; 
DrawLineC 2 18, 285, 218, 305); 
DrawLineC 218, 295, 178, 295); 
DrawLineC 178. 305, 218, 305); 
DrawLineC 178, 305, 178, 285); 
DrawLineC 181 ,300,215,300); 
DrawLineC 109, 209, 118, 216); 
DrawLineC224,209,215,216); 
DrawLineC 109, 274, 118, 268); 
DrawLineC 224, 274, 215, 268); 
DrawLineC 39, 339, 59, 314); 
DrawLineC59,3l4,229,3l4); 
DrawLineC 229, 314, 204, 339); 
DrawLineC 204 ,339,39,339); 
DrawLineC39,342,204,342); 


DrawLineC39, 339,39,342); 
DrawLineC 204, 339, 204, 342) 
DrawLineC204.342,229,320) 


DrawLin#C229, 320, 229,314); ^ 

DrawT ext C59, 324,1.' PRESS <CR> TO CONTINUE ); 
DrawTextC365.218,l,'nTK LAN CARD'); 

Dr awSquar eC 118 , 216 , 215, 2 68, true); , 

DrawTextC189,74,2, ' TOKEN . 

DrawTextC260.260,l, 'HBADERCFOUR ’ 

DrawTextC260, 273,1, 'PACKET SENT TO MONITOR ), 


SetColorBlack; 
DrawTextC104 ,224,1, ' 


PC - BASED'); 



DrawTextC104,259,l, * NETWORK MONITOR’:) 
SetColorUhit® ; 
r ©peat 

ch : =Ieadkey ; 
until Cch=|13); 

ResetUindowStack; 

ClearScreen; 

OVER_ALL_HELP; 

StoreUindowCS) ; 

GotoXyC3,23); 

wrlteC’ PRESS RETURN TO CONTINUE ’); 

repeat 

ch : «readkey ; 
until (ch*#13); 

Cl earScreen ; 

HELPSCRBENl; 

Stor*Uindow( 9 ) ; 

GotoXYCS, 22) ; 

writ eC 'PRESS RETURN TO CONTINUE 

repeat 

ch; «r«adk«y ; 
until (ch*tl3); 

ClearScreen; 

DISPNETUORKSUWWARY; 

StoreUindow( 1 ) ; 

GotoXY(3,22); 

wrlteC PRESS RETURN TO CONTINUE '); 

repeat 

ch: “readkey; 
until (ch'sflS); 

ClearScreen; 

HELPSCREEN2; 

StoreUindowC 10) ; 

GotoXY(3» 22) ; 

writeC PRESS RETURN TO CONTINUE ’); 

repeat 

ch : “readkey ; 
until (eh*|13); 

ClearScreen; 

DISPNODELISTSTAT; 

StoreUindowC 2 ) ; 

GotoXYC3,22); 

writeC’PRESS RETURN TO CONTINUE ’); 

repeat 

ch; “readkey; 
until Cch“#13); 
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Cl «!►.»» Svr f*eii ; 

HELPSCREKN3: 

StoreUindowC 11); 

GotoKYC3.22); 

wri t«*( 'PRESS RETURN TO CONTINUE ’)• 

ch : »r «-.»dk*y ; 
until (ch»#l3); 

Cl earScr«®n ; 

DISPERRORSTAT; 

StoreUindowC 3 ) ; 

GotoXY(3,22); 

writ«( ’PRESS RETURN TO CONTINUE ’); 

r«»p®At 

ch : ■r«adk®y ; 
until (ch«|l3); 

Cl «iirScr «®n ; 

DISPGRAPHIC; 

Stor«Uindow( 4 ) ; 

THRPUT_GRAPH; 

Stor*y indowC 6 ) ; 

GotoXlf(3,22); 

writnC PRESS RETURN TO CONTINUE 

ch : ■'r«*dk«y; 
until (ch«|l3); 

Cl«arScr««n; 

PACRET^GRAPH; 

StoreUindowC 7 ) ; 

GotoXY(3,22); 

wrlt«( 'PRESS RETURN TO CONTINUE 

r«p«*t 

ch:*»r««dk«y 5 
until (ch*H3); 

L®*v®Gr&phlc ; 

•.nd I 

peoc*diirt ilSPLAfJIODl^ilSTl} {Rotttin® #39} 

var i , J ; int««®r ; 

btgin 

wrlt«('ND^DB SR DST LEN of N0DE_LIST_ARRAY1 ’ ) ; 

for 1:»S to IS do 

bagifi 

GotoXYCB.Di 
writ«(l“4) ; 

«nd| 

J:-S; 
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for i : * 1 to 10 do 


GfjtoXY (12, j ) ; 

wr it.e(NOBE_LIST ARRAY! { l + (i-n »4 
NODE LIST AR»AvT{ 2+(i-l)*4] ' ' 

* ’rNODE^LIST ARRAYl{4 + (i-i)*4] 

Inc ( I J; 


3,' 


) 


N0DE_L IST_ARRAY1 [3 + 


(i-1 


)*43 


end ; 
end ; 

procedure DISf LAt_N0DE LIST2f {Routine #40) 

var i , j : intener ; 
begin 

J : *4 : 

GotoXYfS, j); 

writeCND DB SR DST LEK of N0DE3IST_ARRAY2 ' ) ; 

for i : *5 to IS do 

begin 


GotoXYfa.l); 
wr i t •( i -4 ) ; 


end; 

j.-5; 

for 1:*1 to 10 do 
begin 

GotoXY(12. i); 

writeCNODE LIST ARIAY2I l + (i-l)*43 , ’ 

MODE LIST ARRAY2{2 + (i-l)*43,* »,N0DE LIST_ARRAy2[3 + (i-l)*43 
• ’7NODE”LIST_ARRAy2C4+(i-l)*43); 

Inc (j); ~ 
end ; 

end; 

procedure IltITIALX8B_VARIABLES{Rotttine #41} 

begin 

INITVARNETSUM; 

INITVARASSBHBLY; 

IMITPROCESSBCVARj 

INITDBASVAl; 

INITMOOELISTVAi; 

INITERRORSTATVAR; 

INITGRAPHICVAR; 

ClrSer; 
end ; 
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procedure «ifUf_tAlIiClll»S< Routine #42} 
begin 

RAWSCREENSBTUP; 

GetIntVec($lC,IntlCSeve)j 

SetlntVecCilC.ilntlCIandler)! 

MetSufli^Det eBeee^Bui Id ; 

Nod#Ll»t_DAtABe«e_Bttlld; 

ErrorStet^DeteBeee^Buildi 
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INITIR02 : 

Eat rtt Gr.*phic ; 

Rest or «U iadowC 8 , 0 , 0 ) ; 

«nd ; 

proctdur* UPDATE_^DATi{ (Routla# # 43 } 

£ n 

G®tDat«(yYYY,I1!1,DD,D0FU); 

GotoXYC65,2); 
wr ’ : • ,DD, * : * .YYYY); 

end ; 

proeedur* OH^SRCUPOATE} {Routin* # 44 } 
begin 

SECUPDATE:»0; 

PROCESS I NTH BUFF SECj 

GotoKYC?,2);"“ 

wr i t «C ' ' ) • 

SC;»00; 

GetTiweCHR.WN.SC.SCHUH); 

GotoXY(6,2); 
wrlte(Hi, • : ' .MW, ’ • ' ,SC); 
caee FUHCT^KEY of 
i: begin end; 

2:URITEDISPSBC1; 

4:UR1TE0ISPSBC3; 

S : begin 

if SKIP PLAGOl then begin 

TRANSFERVALUES THRPUT; ResetAxis; 
DrawPolygon(THRPUT SEC, 1 , <50 , 7 , 2 , 0) ; 
SKIP_FLAG:* 1 ; endj 

end; 

6 : begin end; 

7: begin end; 
d:begin 

if SKIP FLAGOl then begin 

TRANSPERVALUES PACKET; ReaetAxia; 
DrnwPolygonCPAKSUM SEC , 1 , 60 , 7 , 2 , 0 ) ; 
SKIP_FLAG:*1; end; 

end; 

10 : begin 

UP DATl_DEBUG_VAiUES ; 
end; 

end; 

•Hd ; 

procedure OM^KIMUPDATEi {Routine #45) 
begin 

if KOBE LIST PTR»1 then begin 

MODE LIST_PTI:»2; 
for r!IDBX:*0 to 1550 do 
NODB.L IST^ARRAY2 { INDEX ] : =0 ; 
end 



e 1 i! 0 l> f> g i n 

fiODE_LIST_m:*«l; 

for IIIDEXT*0 to 1550 do 

NO0E_LIST_ARRAirit INDEX] :=0; 

tlKl ; 

r5INUPDATE:«0; 

PROCESS EVERY MINUTE; 

NODE LIST UPDATE FLAG:«1; 
for TnDEXT« 0 to 255 do 
b#gln 

if N0DE_LIST_PTR*2 then PROCESS_NODE LISTl 

else PR0CESS_N0DE~LIST2 ; 
end ; “ 

NODE LIST UPDATE FLAG;»0; 
caae^FUNCT^KETf o? 

1 ; begin end ; 

2 ; begin 

RestoreUindowd ,0,0); 

WEITEDISPHINl; 
end ; 

3 : begin 

R«etor*Uindov(2 , 0,0); 
yRITE0ISP2; 
end; 

I : begin 

Re8tor«Uindow(3,0,0); 
end ; 

5 : b eg i n end ; 

6: begin end; 

7 .‘begin end; 

8:begin end; 

9:begin end; 

I0:begin 

CLEAN5CREEN VALUES; 

UPDAT1_DE1UG_VALUES ; 
end; 

end ; 

end; 

procedure UPDATB.ESDBASi (Koutine $ 46 ) 

begin 

ESDBSREC.RecStatU8:-00; 

while (BUFF_PTR<>PIPE_PTR) and CPIPE_FLAG<>0) do 

begin ”” 

READ BYTE:»RINGBUFFtPIPB_PTRJ; 
i£ pIpb FLAG*1 then 

BSDBSRBC . SOURCE_ADDRESS : =READ_BYTE 
if PIPE FLAG-2 then BSDBS1EC.DEST_ADDRESS:=READ_BYTE 
if PIPEIfLAG- 3 then 
begin 

ESDBSREC . LEMGTH^PACEIT I *READ_BYTE ; 



ERR0RSTATD8SUPDATE; 

ERROR_FLAG:*Oj 

rtrid ; 

I nr (PIPE PTR); 

i' PIPE_PTII:=0; 

Inc (PIPE FLAG); 

if PIPE^FLAGM then PIPE^FLAG:*0; 

«mi ; ““ 

•nd; 

procedure UfOAfl^MOBSL 1ST i < lout Ine #47} 

hefiin 

while (BUFF^PTROPIPE^PTR) and (PIPB^FLAGOO) do 
begin ~ 

READ.BirTE:*SINGBUFF[PIPE_PTR 3 ; 
if CPIPE_FLAG«1) then SOURCEAD : =>READ BYTE: 
if (PIPE__FLAG»2) then DBSTAD:=READ BYTE; 
if (PIPB_,FLAG*3) then 
begin 

LENGTH; ■READ BYTE; 

HBADER_STATUS:*1; 
end ; ~ 

IncfPIPE PTR); 

if CPIPB"PTR»3aOOO) then PIPE PTR:=0; 

IncCPIPE FLAG); 

if CPIPilFLAG-4) then PIPE_FLAG:=0; 
end j "" 

If HEADE8_STATUS«1 then 
begin ~ 

if N0DE_LIST_PTR*1 then 
begin 

HEADER STATUS :»0; 

NODE lIsT ARRAY1C1+CS0URCEAD-1)*5]:=1; 
NODE“LIST“AIRAyi C 2 + (S0URCEAD-l )*5 ] ; = 

"" NODE LIST ARRAyif2 + (SOURCEAD-l)*5] +1; 
NODE LIST AiIAyrf4+(S0URCEAD-l)*5] :■ 

NODE LIST ARRAY1C4+(S0URCEAD-1)*5]+LENGTH; 
if NODE_LISf.ARRAYiri + (DBSTAD-l)*S]«0 then 
begin 

NODE LIST ARtAYltl+(DESTAD-l)*5]:=3; 

NODE^L IST“ARIAY1 1 2+ ( DESTAD- 1 ) *5 } : »0 ; 

NO DE ~L I ST “ARR A Y 1 C 4 + ( DESTAD- 1 ) * 5 ] : = 0 ; 

NO DE^L I ST“ARRAy 1 C 3 + ( DESTAD- 1 ) * 5 ] : = 1 ; 

NODE~L IST“ARRAYi 1 5+ (DESTAD-1 ) *5 } : ^LENGTH ; 
end eiee 

if NODE LIST ARRAyiCl+(I>ESTAD-l)*5]=3 then 
begin NODE LIST ARRAY1C3+(DESTAD-1)*53 : = 

NODE LIST ARRAYIC 3+ (DESTAD-1) *5 3+1; 

NODE lTsT ARRAYir5+(DESTAD-l)*53:= 

NODS~L I ST i 5+ ( DESTAD- 1 ) * 5 3 + LENGTH ; 

end - 
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«1h»‘ 

NODE^L I ST_ARRAYM 3 + (DESTAD-l ) *5 ] • = 

NO DE_L I ST^ARRAY 1 C 3+ ( DESTAD- 1) * 5 ] + 1 . 

NO DE_ L I ST.AR RA Y 1 1 5 + ( DESTAD- 1 ) * 5 ] : = 

NOOE_^L I ST_^ARRAY 1 f 5+ ( DESTAD- 1 ) *5 ] +LENGTH - 

«nd ; ’ 

end : 

NODE_,LIST_PTR*2 then 

h es i n 

HEADER STATUS; -0; 

NODE_UST_ARRAY2 J l + (SOURCEAD-l ) *S ] : = 1 ; 

NO DE_L I ST_ARRAY2 C 2 + (SOURCEAD- 1 ) * 5 ] : = 

iODEj;iST_ARRAY2[2 + (SOURCEAD-l)*5] +1; 

NODE LIST ARRAY2t4+CSOURCEAD-l)*5]:= 
NODE_LIST_ARRAY2C4 + CSOURCEAD-1)*5] + LENGTH; 
il NODB_LIST_ARRAY2C1 + (DESTAD-1)*5]«0 then 
hefiin 

NODI LIST ARRAY2El+(DESTAD-l)*5]:=3i 
NO D £“ L I ST*"ARR A Y2 C 2 + ( DESTAD- 1 ) * 5 ] : = 0 
NODE~L I ST“ARRAY2 1 4 + ( DESTAD- 1 ) * 5 ] : = 0 
NODE^L I ST'”aRRAY2 1 3+ C DESTAD- 1 ) * 5 ] : = 1 ; 

N0DE“L 1 ST~AR»AY2 C 5+ ( DESTAD-1 ) * 5 ] : ^LENGTH ; 
•fid lils# 

if NODB_LIST_AtRAY2Cl+(DESTAD-l)*5]=3 then 
heftin 

NODE LIST ARRAY2 [3+ (DESTAD-1) *5]:= 

NODE LIST ARRAY2[3+( DESTAD-1) *5] + 1; 

NODE LIST ARRAY2 [5+C DESTAD- 1)*5]:= 
NODi_LISf_ARRAY2t5+(DESTAD-l)*5] + LENGTH; 

end 

mlm« heftin 

NODE LIST ARRAY2r3+(DBSTAD-l)*53:= 

NODE LIST ARRAY1[3+(DESTAD-1)*5] +1; 

NODE LIST ARRAY2t5+(DBSTAD-l)*5]:= 
NODl_LIST_ARRAt2C5+(DESTAD-l)*53 + LENGTH; 

•nd ; 

end; 

•ndi 

end t 


end; 

heftin { If A I N ) 
INITIALISE VARIABLES; 
INITDATETINB; 

SETUP RAWSCtEENS; 

/ - 

Ilf KeyPreaeed then 
I he^gin 

I 200;readCKbd,ch); 

I if Cch«|27) and 


{Routine 48) 

KeyPreeaed then 


\ 

1 
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ca«* FUHCT KEY of „ ... 

l:HELP_PtOCiSSj {Routine i9) 

2:b«§in Ee«tortliiadowCl ,0,0) ; 

MtlTEDISPSECl; URITEDISPMINl ; end; 

3 ! b««in te«tore«iftdow(2 , 0 , 0 ) j WRITEDISP2 ; end ; 
I. ‘begin t«etoreWindow(3,0,0); 

0ISPESOBSPILE} end; 

Ssbegin Re«toreUindow(4,0,0); 

Re»tor««lndow(6,0,0); ResetAxis; 
SKIP FLAG{*0; end; 
dsPRINTFACIUTY; 

7: begin DOSCOIHIAMD; 

if (CPREV PUHCT^KEY < 5) and 
(PRBV^FUIICT^KEY >1)) then 
begin 

PUKCT KETs-PREV FUNCT_KEY; 

Re«toreWindow(FyNCT_KEY-l .0 .0) ; 

end 

elee ; 

FUlfCT KBY*«1; 


btjg 1 n 

j iMiid ( Kbd , ch ) ; 
ee«« ch of 

iS9: begin PRBV^FUNCT KEYiaFUNCT KEY- 
PUNCT KEY;«1; end; “ ’ 

160: begin PREV^FUNCT KEY:®FUMCT KEY; 

PUNCT_KEY:«2; end; “ 
i61:begin PRBV FUNCT KEYrsFUNCT KEY- 
FUMCT KEY: *3- end- “ ’ 

i62:begin PREV_FUNCT KEY:=FUNCT KEY; 
FUIiCT_KBY:«4; end; 

163: begin PRSV^FUNCT KEY:* FUNCT KEY; 

FUNCT„KEY:-5; end; “ 

|64;begin PREV FUNCT KEYi-FUNCT KEY; 
FUNCf_KEY;-6; end; 

|65;begin PRBV FUNCT KEY:«FUNCT KEY; 

FUNCT KEY: -7; end; 

|66;begin PREV FUNCT KEY:»FUNCT KEY; 

FUNCT KEY: *8; end; 

i67;begin PREV FUNCT KBY:«FUNCT KEY; 

FUNCT KEY:»9; end; 

|68:begin PRBV FUNCT KEY:«FUNCT KEY; 

FUNCf_KBY:»10; end; 

§84: goto SOO; 

§89 : show; 

•92:D1SPNLDBSFILE; 

§112: begin CleerScreen; DISPESDBSFILE; end 

end ; 
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whil« (k«ypr«iia«4*l4ila«} do 
bat 

if SBCUPDATE-1 than 
bagin 

OH^SECUPDATB; 

•fid : 

i£ nmUPDATE*! than 
bag in 

CotoI¥C«&. 2 ); 
wrltacrm. * ; • .DO. * : •,¥¥¥¥); 
OII_«II«UPDATE{ 
and; 

KOUMT.-O; 



whiia(CiUFF^PTR>PIPB_.PTR ♦ 3) or (PIPE_PTR-BUFF_PTR>3)) 
do bagin - — - 

READ BfTE.-tlHCBliFPfPIPE PTR|; 
if ((P!Pi_FLAG-0 5 and (tiAD^ifTBOOa)) then 

bagin 

inc CKOUNT); . 

G0t©X¥(S5,22); {Routina 50) 

wltaCWUMT)} 

and ; 

if ( (REA0^B¥TE-02) and (PIPB_FLAG«0) ) then 

begin 

ERROR FLAG* -2 1 
Inc (?IPE_PLAG)i 

and 

al«t if (CRBAD_BYTE*09) and (PIPE_PLAG=0)) then 
bagln ” 

ERROR FiAC{*l| 

Inc (PIPE FLAC)| 

Inc CPAIliERROE); 

GotoXY(S.225; 

writaC* ERROR PIT RtCEIVBBI HUHBERj «’ .PAKINERROR) ; 
and ; . 




if » I'l rr_ l'T>>,J2000) th*n 


if iRJi'uli } 2 Aft'* I th#n 
l >*'**^ » u 

HFJ'ATF j:r,I>BAr,j 
#nd , 

It ihP.¥0¥'JlAG*i) th«n 
h**# i »i 

UrDATE_^fiO0ElIST; 

•nd; 

goto 200; 

500:Sft !r»t.V«c( JIC, IntlCSAv*) 

Clo««Fi 1 «( 4bji« ) ; 

L»*v»Gr aph i c ; 

•nd . 
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< Th« following is the source program listing o£ 
Safi ^ program'' (unit) named USERINT linked into the 

unit USERINT; 

Inttrlso* 

uses Crt , Dos , Turbo3 , Graph,Gdriver ,Gwindow, Gkernel , Gshell , 

Printer; 

var 

IHlrword; 

DD:word; 

YYTYrword; 

DOFUrword; 

I!th:atring[2] ; 

Dy:string[ 23 ; 

Yr :string[4] ; 
code: integer ; 

H0R:string[2] ; 
niNU : string|;2 ] ; 

SECON: string[ 2 3 ; 

SCHUN:word; 

HR: word; 

MN: word ; 

SC: word; 

pi ,p2 ,p3 ,p4 : pointer ; 

sizel , size2 , size3 , 8ize4 :word; 

PTR , COLNO , ROUNO , PRINT_I : int eger ; fname : string [ 1 6 3 ; chr , 

Character : char 


procedure DISPNETWORKSUMMARY; 
procedure DISPNODELISTSTAT; 
procedure DISPERRORSTAT; 
procedure INITDATETIME; 
procedure MENU; 
procedure HENU2; 
procedure DOSCOMMAND; 
procedure HELPSCREENl ; 
procedure HELPSCREEN2 ; 
procedure HELPSCREEN3; 
procedure OVER_ALL_HELP ; 
procedure DEBUGROUTINEPROMPT; 
procedure CLEANSCREEN_VALUES; 
Implementation 

procedure DISPNETWORKSUMMARY; {Routine #51) 

begin ' 

ClearScreen; 

Def ineUindoWXl , 0 » O.XMaxGlb , YMaxGlb) ; 


the 
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De£ifteUorld[(l ,0,0,719,349) ; 

S®l®ctUorld(l ) ; 

S®lectUlndow(l) ; 

DrawBorder ; 

DrawT«xtC260, 10, 2, 'NETWORK SUMMARY’); 
SetLineStyleCO) ; 

GotoXYC5.3) : 

wrIteC’ THROUGHPUT(in Bytea)’); 

GotoXy(45,3); 

wrlteC’ UTILISATION’); 

DrawStraifiht (0, 719,28); 

DrawStraight (0 , 719,50); 

DrawText(10, 60, 2, 'Current Previous Average 
DrawText (10 , 72 , 2 , 'Minute Minute per sec 
DrawT6Xt(400, 60, 2, 'Previous Peak’); 

DrawText(400,72,2, 'Minute ’); 
DrawStraight (0 , 719,150); 
DrawLineClipped(393,28,393,285) ; 

GotoXy(12 . 12) ; 
writeC’DATA BASE SUMMARY’); 

GotoXY(51,12); 
wrlte(’ PACKET SUMMARY’); 

DrawStr aight (0,719,170); 

GotoXY(2,14) ; 

wrlte( 'Sample Tlme(in min.):’); 
GotoXY(2,16) ; 

write(’# of Records in DBAS.DAT:’); 
GotoXY(2,18); 

writeC# of Records in NLDBAS.DAT:’); 
GotoXY(2,20); 

write(’# of Records in ESDBAS.DAT:’); 
GotoXY(46,15); 

wrlte( ’ Packets in current minute:’); 
GotoXY(46,17) ; 

write( ’ Packets in Previous minute:’); 
GotoXY(46,19); 

write( ’Average Number of packets:’); 

GotoXY(46,20); 

wrlte(’ln one second'); 

MENU; 

end ; 

procedure DISPNODELISTSTAT; {Routine #52) 
begin 

ClearScreen; 

D e f i n eUi ndow ( 2 , 0 , 0 , XMaxG 1 b , YMaxG lb); 
D6fin6Uorld(2,0,0,719,349); 
SelectUorld(2) ; 

Sel6ctUindow(2 ) ; 


peak’ ) ; 
per Min ’ ) ; 



DrawBorder; 

DrAwTtxt(240,10,2,*NODE LIST STATISTIC 
SetLineStyleCO) ; 

GotoXy(2,3); 
write( 'Connection '),* 

GotoXYC2.4); 

write( 'Node' ); 

GotoXy(14,3); 

writeC 'Bytes Xiaitted'): 

GotoXy(14,4); 
write(’in previous’): 

GotoXy(14,5); 

writ e( 'minute ’); 

GotoXy(29,3); 

writoC'Pkts. Xmitted’); 

GotoXy(29,4); 

writeC'in previous'); 

GotoXy(29,5); 

writeC 'minute' ) ; 

GotoXy(45,3); 

write(’Averafie’); 

GotoXy(45,4); 
writeC’Pkt. Size’); 

GotoXy(57,3); 

writeC 'Pkts. rcvd.’); 

GotoXy(57,4); 
writeC’in previous’ )- 
GotoXY(57,5); 
writeC’minute’); 

GotoXY(69,3); 
writeC 'Bytes rcvd.'); 

GotoXyC69,4); 
writeC’in previous’); 

GotoXYC<59,5); 
writeC 'minute' ) ; 

Dr awStraifiht CO, 719,28); 
DrawStraifihtC0,719,70); 

Dr awStraifiht CO, 719,285) ; 

DrawLineClippedC 11 2 , 28 , 1 1 2 , 285 ) ; 
DrawLineClippedC250,28,250,285) ; 
DrawLln6ClippedC370, 28,370, 285) ; 
DrawLineClippedC391,28,391,28); 
DravLineClippedC487, 28,487, 285) ; 

T *** C 605 , 28 , 6 05 , 285 ) ; 


DlSfIRRORSTAT}{Routin« #53) 


proc*d«r« 

* ni £ 1 n«Ul ndovc 3,0,0. XH.*Gl b , TMaxGlb) ; 
°*JlS.Uorld(3 0.0.719. 3«); 

1 #C la C ^ / * 

|:j;:ctUIndov(3), 

C2<0 . 10, 2 , ■ BREOS STATISTICS’ ) ; 

D;iis?r.l«l>t(0.71».28): 

• 719 , 285) , 

wr it oC 'TOTAL NUMBER OF PACKETS IN ERROR') 

'NUMBER OF TOKEN LOSSES ’); 
DrawStraiehtCO, 719 , 63) ; 

Drawf , 28,^9,63); 

GotoXyC3.6); 

writoC 


of ’); 
Node’ ) 


end ; 


VC j. -C ro V . . , 

GotoXTClB ' ; ' 

'Tlwe ) ; 
wrlt®^ * 

writeC ’Address 

Srl^C’l-eAsti of ■): 

Error’), 

Wtltei^ ^^( 88 , 63 ^ 88 . 285 ); 
DrawLineciipped(350, 63,350, 285); 
DrawLine^^ ^^^^ 200 , 63 , 200 , 285 ) ; 

ipp^d (500.63,500,285); 

MENU; 






.‘^"1 / , 

* : 


.A .:-i HBWU ; tR^oatine #54 } 

rT«r-ldl:Float^?i 9 . 0 ; 
2 *^SorldY Float^f ff^O ; 
var CharwAa^:"' 

begin . ,_ MaxUorldX / 80 ; 

CharUidtn - 


CharHeifiht := MaxUorldY / 25; 

DrawSquare( 5*CharUidth-2 , l*CharHeiftht-2 , 

(13*CharUidth)+2, (2*CharHei«ht )+l , 
DrawSquare( 64*CharUidth-2 , 1 *CharH6i|tht“2 , 

(75*CharUidth)+2, (2*CharHeight )+l , 
DrawStraiehtC0,719,285); 

DrawSquareCSO ,315,100, 343, true) ; 

DrawSquareC 130,315,200,343, true) ; 

DrawSquareC 230 ,315, 300, 343, true); 

DrawSquareC 330 ,315,400, 343, true) ; 

DrawSquareC 430 ,315, 500, 343, true) ; 

DrawSquareC 530 ,315, 600, 343, true); 

DrawSquareC 630 ,315, 700, 343, true); 
DrawStraightCO, 719 , 308) ; 

GotoXYC2,24); 
writeC 'FI’ ); 

GotoXyC13,24); 
writeC ’F2' ) ; 

GotoXYC24,24) ; 
writeC 'F3’ ) : 

GotoXYC35,24); 
writeC ’F4' ); 

GotoXYC46,24); 
writeC 'F5’ ) ; 

GotoXYC57,24); 
writeC ’F6’ ) ; 

GotoXYC68, 24) ; 
writeC ’F7 ’ ) ; 

SetColorBlack ; 

DrawTextC35,323,l, 'HELP'); 

DrawTextC135,323,l, 'NETWORK' ) ; 

DrawT ext C 135, 333,1, 'SUMMARY'); 

DrawT ext C235, 323,1, 'NODE LIST’); 

DrawT ext C 235, 333,1, 'STATISTICS' ) ; 

DrawT ext C335, 323,1, 'ERROR'); 

DrawT ext C335, 333,1, 'STATISTICS’ ) ; 
DrawTextC435, 323,1, 'GRAPHIC' ); 

DrawT6XtC435, 333,1, 'DISPLAY' ); 

DrawT ext C535, 323,1, 'PRINT' ); 

DrawT ext C535, 333,1, 'SCREEN'); 
DrawTextC635,323,l, 'OS Shell '); 
SetColorUhite; 
end ; 

procedure HBNU2; {Routine #55} 

const 

MaxUorldX:Float*719 . 0; 

MaxWor 1 d Y : F 1 oat = 3 4 9 . 0 ; 
var CharUidth.CharHeight : Float ; 
begin 

CharUidth := MaxWor IdX / 80; 


false) : 
£al«e ) ; 
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CharHeifiht := MaxUorldY / 25; 

Dt'awSquat'e(S*CharUidth-2 , l*CharHaleht-2 , 

(13*CharUidth)+2, (2*CharHeight )+l , false); 
DrawSquareC 64*CharWidth-2 , l*CharHeifiht-2 , 

(75*CharUidth)+2, ( 2 *CharHeight )+ 1 , false); 
DrawStraightCO, 719 , 285) ; 

DrawSquareC 30 ,315, 100, 343, true); 

DrawSquareC 130, 315, 200, 343, true); 

DrawSquareC 230 ,315,300,343, true) ; 

DrawSquareC 33 5 ,315, 400, 343, true); 

DrawSquareC 435 ,315,500,343, true) ; 

DrawSquareC 53 5 ,315,600,343, true) ; 

DrawSquareC 630 ,315,700,343, true) ; 

DrawStraight CO ,719,308); 

GotoXYC2,24); 
writeC 'F5' ) ; 

GotoXYC13,24); 
writeC 'F8’ ); 

GotoXYC24,24); 

writeC'F9’); 

GotoXYC35,24); 
writeC ’FIO’ ) ; 

GotoXYC46,24) ; 
writeC 'Sh'); 

GotoXYC46,25); 
writeC 'F5' ) ; 

GotoXYC57,24); 
writeC 'Sh' ) ; 

GotoXYC57,25); 

writeC'F6’); 

GotoXYC68,24); 
writeC 'Sh' ) ; 

GotoXYC68,25) ; 
writeC’Fl'); 

SetColorBlack; 

DrawTextC35,323,l, 'THROUGHPUT' ) ; 

DrawTextC35,333,l, ' GRAPH '); 

DrawT6XtC135, 323,1, 'PACKET'); 

DrawText C135, 333,1, 'GRAPH' ); 

DrawTextC235, 323,1, 'DATA BASE’); 

DrawT ext C235, 333,1, 'RECORDS' ); 

DrawTextC340,323,l, ' VARIABLE’); 

DrawT ext C340, 333, 1, ’ DUMP’); 

DrawTextC440,323,l,'G0 TO’); 

DrawT extC440, 333,1, 'START'); 

DrawT ext C540, 323,1, 'SHOW'); 

DrawTextC540,333,l, 'SCREEN' ); 

DrawT extC635, 323,1, 'QUIT'); 

SetColorUhit e ; 
end ; 



procedure INITDATETIME; {Routine #56} 
var 

Charact er : char ; 
begin 

DelayClOOO); 

GotoXy(l,4) ; 

writelnC ' Initialise Date and Time'); 

GotoXyCl,6) ; 

writ eln( ' Current Date is 
GotoXY(22,6); 

GetDate(YYYY,MM,DD,DOFU) ; 
writelnCMM, ,DD, ,YYYY); 

writelnC 'Do you want to change the Date ?(Y/N)’); 
repeat 

Charact er : =Readkey; 

until C (Charact er= ' Y' ) or (Charact er= ’ y ’ ) or 

(Charact er= ’N’ ) or (Charact er= ' n ') ) 
if (Character=’Y’ ) or (Character= ’y ’ ) then 
begin 

GotoXY(l,10); 

repeat 

begin 

write( 'ENTER VALID MONTH(01-12 ) : ’ ) ; 
Readln(Mth) ; 
end ; 

until C(Mth >’00') and (Mth < '13')); 
begin 

Val (Mth, MM, code) ; 
end; 
repeat 
begin 

writeC 'ENTER VALID DAY(01-31 ) : ’ ) ; 
Readln(Dy); 
end; 

until ((Dy > '00') and (Dy < '32')); 
begin 

Val (Dy, DD, code) ; 
end; 
repeat 
begin 

writeC 'ENTER VALID YEAR(1981-2099) : * ) ; 
Readln(Yr); 
end; 

until ((Yr > '1980') and (Yr < ’3000’)); 
begin 

Val (Yr,YYYY, code); 
end ; 
end; 

writeln; 
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SetDateCYYYY.MM.DD); 

Get Dat e ( YYY Y , MH , DD , DOFU ) ; 

writelnC ’Date Set: ’ ,MM, ,DD, *-• ,YYYY); 

writeln; 

GetTiineCHR,MN,SC,SCHUN) ; 

writeC ’ Current Time is ’ ,HR, ’ : ' ,MN, ' : ’ ,SC, ’ : ’ , 

SCHUN); 

writeln; 

writelnC’Do you want to set Time ?(Y/N)’); 
repeat 

Character : =Readkey; 

until C (Charact 6r= ’ Y ’ ) or (Charact6r= ’ y ' ) or 

(Character= ’N’ ) or (Charact er= ’ n ')) ; 

writeln; 

writeln; 

if (( Charact er= ’Y’ ) or ( Charact er= ’ y’ ) ) then 
begin 
repeat 

writeC ENTER VALID HOURCOO-23) : ’ ) ; 
Readln(HOR); 

until CCHOR >=’00’) and (HOR < ’24’)); 
begin 

Val(H0R,HR,code) ; 
end ; 
repeat 

writeC’ENTER VALID MINUTE(00-59 ) : ’ ) ; 
Readln(MINU); 

until C(MINU >=’00’) and (MINU < ’60’)); 
begin 

Val (MINU, MN, code) ; 
end ; 
repeat 

write(’ ENTER VALID SECOND(00-59) : ’ ) ; 
Readln(SECON) ; 

until ((SECON >=’00’) and (SECON < ’60’)); 
begin 

Val (SECON , SC , code ) ; 
end ; 

SetTime(HR,MN,SC,00); 
end ; 

GetTime(HR,MN, SC, SCHUN); 

writeln (’Time Set is ’ ,HR, ’ : ’ ,MN, ’ : ’ ,SC, ’ : ’ , 

SCHUN) ; 

writeln; 

writeln( ’ Press Key to Continue ’); 

repeat 

until keypressed; 
end ; 

procedure DOSCOMMAND; {Routine #57) 



var 

CURDIR:string[50] ; 

DRIVE: byte; 
extcde:word ; 
begin 

LeaveGraphic ; 

FillChar(CURDIR,Si 2 eOf CCURDIR) , ’ ’ ) ; 

DRIVE:=0; 

GetDirCDRIVE,CURDIR); 

GotoXY(l,l); 

writelnC ’TYPE EXIT TO RETURN TO NETWORK MONITOR’); 

writ 6ln( ’CURRENT DIRECTORY=’ ,CURDIR); 

writeln; 

writelnC ’NOTE: =DATA WILL BE LOST IF YOU DO NOT 

RETURN TO MONITOR MODE '); 
writelnC’ WITHIN ONE MINUTE.’); 

ReleaseCHeapOrg) ; 

ExecC’ \COMMAND.COM’ , ’ ’); 

ChDirCCURDIR) ; 

Ent erGraphic ; 
end; 

procedure MBLPSCRBBNl { {Routine #58} 

begin 

{Help for Network Sumnery Stetietice) 

end ; 

procedure RBLPSCRBBN2{ {Routine #59} 

begin 

{Kelp for Node Liet etetietiee) 

end ; 

preeedure XILIiCRIIN3i {Routine #50) 

begin 

(Help for Error etatietice} 

end; 

procedure OVER_ALL_HBLPf {Routine #81) 

begin 

{Overall Help} 

end ; 

procedure DEBUGROUTINBPROMPT; {Routine #82} 
begin 

ClearScreen; 

GotoXYC3,l); 

wr it eC ’ASSEMBLY ROUTINE VARIABLES’); 

GotoXYC3,3); 

writeC ’NO_OF_PACKETS_SEC:=’ ); 

GotoXYC3,4) ; 

writeC ’NO_OF_BYTES_SEC:=’ ); 

GotoXYC3,6); 

writeC’INTM_BUF_PTR:=’); 



GotoXY(3, 7) ; 

writeC 'THRPUT_INTII BUFEINTM BUF PTRl- 
GotoXY(3,8); ~ ~ 

wrlteC ’PAKSUM INTM BUF[INTM BUF PTRl- 
GotoXY(3,10);“ “ - _ 

writeC ’ INITVARNETSUM VARIABLES' 1 - 
GotoXY(3,12); ’ 

writeC ’THRPUTCUR_I1N’ ) ; 

GotoXY(3 , 13) ; 

writeC 'THRPUT IN PREV MIN-=')- 
GotoXYC3,14);~ “ - • ' 

writeC 'THRPUT AVG MN:=’)- 
GotoXYC3,15); 

writeC 'THRPUTPEK OVER HR:=')- 
GotoXYC3,17); - - 

writeC 'UTILIS IN PREV MIN:=')- 
GotoXYC3,18);~ ^ “ 

writeC 'UTILIS AVG riN: = '); 

GotoXYC3,19); 

writeC 'UTILISPEK OVER HR:=')- 

GotoXYC3,21); 

writeC 'PAKSUMCUR MIN:=’)- 

GotoXYC3.22); 

writeC 'PAKSUM IN PREV MIN:=')- 
GotoXYC3,23);"' “ “ 

writeC 'PAKSUM AVG MN:=’); 

GotoXYC3,24);“ ~ 

writeC 'PAKSUMPEK OVER HR:=')- 

GotoXYC39,l); 

G*^t^XYC39*^3**^^*^ I^flTPROCESSECVAR ' ) ; 

writeC ’MATCH_^INTM BUF PTR: = ')- 
GotoXYC39,10); “ “ 

writeC ’NODE_L 1ST PTR:= ’); 

GotoXYC39,13); ~ 
writeC 'BUFF_PTR:= '); 

GotoXYC39,14); 

writeC’PIPE_PTR:=’); 

end; 

procedure CLEANSCRBBN VALUES; {Rout Ino § 63 ) 
begin 

GotoXY(32,3) ; 
writeC ’ ’ ) ; 

GotoXyC32,4); 
writeC ’ ' ) ; 

GotoXYC32,6); 
writeC ’ ' ) ; 

GotoXYC34,7); 
writeC’ '); 

GotoXYC34,8) ; 


writ eC ’ 

’); 

GotoXY(32,12) 


writ e( ' 


GotoXY(32,13) 


wr i 1 6 ( ’ 


GotoXY(32,14) 


writeC ’ 


GotoXYC32,15) 


writeC ’ 

’’); 

GotoXY(32,17) 


writeC ’ 


GotoXY(32 , 18) 


writeC ’ 

’ ’); 

GotoXYC32,19) 


writeC ’ 


GotoXYC32,21) 


writeC ’ 


GotoXYC32,22) 


writeC ’ 

’ ’); 

GotoXYC32,23) 


writeC' 

' ’); 

GotoXYC32,24) 


writeC ’ 


GotoXY(<50,3) ; 


writeC ’ 


GotoXYC62, 7) ; 


writeC’ 


GotoXYC62,8); 


writeC’ 



end; 
end . 



INDEX TO ROUTINES IN THE LISTING OF MAIN FROGRAIf 


Routine # 

NANE 

PAGE No 

R.Al 

IRQ2_Handler proc near; 

51 

R.A2 

INITIRQ2 proc near; 

52 

R. 1 

NetSum DataBase Build; 

56 

R. 2 

NodeList DataBase Build; 

57 

R.3 

Errorstat DataBase Build; 

57 

R. 4 

NODELISTDBSUPDATE; 

57 

R.5 

ERRORSTATDBSUPDATE ; 

57 

R. 6 

DISPDBSFILE; 

58 

R.7 

DISPNLDBSFILE; 

58 

R.8 

DISPESDBSFILE; 

59 

R. 9 

INITVARNETSUM; 

60 

R. 10 

INI TVAR ASSEMBLY; 

60 

R.ll 

INITPROCESSECVAR; 

61 

R. 12 

INITDBASVAR; 

61 

R.13 

INITNODELISTVAR; 

61 

R.14 

INITERRORSTATVAR ; 

61 

R.15 

INITGRAPHICVAR; 

62 

R.16 

URITEDISPMINl; 

62 

R.17 

URITEDISPSECl; 

63 

R.18 

DISPLAY NODE LIST; 

63 

R.19 

PROCESS NODE LISTl; 

63 

R. 20 

PR0CESS_N0DE_LIST2 ; 

64 

R.21 

URITEDISP2; 

65 

R.22 

URITEDISPSEC3; 

65 

R.23 

Int ICHandler ; 

65 

R.24 

PROCESS INTM BUFF SEC; 

66 

R.25 

PROCESS_EVERY_MINUTE ; 

67 

R.26 

TRANSFERVALUES THRPUT; 

67 

R.27 

TRANSFERVALUES PACKET ; 

67 

R.2d 

UPDATE DEBUG VALUES; 

68 

R.29 

HELP PROCESS; 

69 

R.30 

FILE IN PROMPT; 

69 



Rout in* # 

NAME 

PAGE » 

R.31 

MESSAGE PROMPT; 

69 

R.32 

READ FILE NAME; 

69 

R.33 

PRINTFACILITY; 

70 

R. 34 

show; 

70 

R.35 

DISPGRAPHIC; 

71 

R- 36 

THRPUT GRAPH; 

71 

R.37 

PACKET GRAPH; 

73 

R.38 

RAMSCREENSETUP; 

73 

R.39 

DISPLAY NODE LISTl; 

76 

R. 40 

DISPLAY_NODE_LIST2 ; 

77 

R.41 

INITIALISE VARIABLES; 

77 

R.42 

SETUP RAMSCREENS 

77 

R.43 

UPDATE DATE; 

78 

R.44 

ON SECUPDATE; 

76 

R.45 

ON_M INUPDATE; 

76 

R. 46 

UPDATE ESDBAS; 

79 

R.47 

UPDATE_NODELIST; 

80 

R.4d 

— 

81 

R.49 

— 

82 

R.50 

— 

83 


INDEX 

TO ROUTINES IN THE LIBRARY (UNIT) 

USER I NT 

Routine # 

NAME 

PAGE No. 


R.51 

DISPNETUORKSUMMARY; 

85 

R.52 

DISPNODELISTSTAT; 

86 

R.53 

DISPERRORSTAT; 

88 

R.54 

MENU; 

88 

R.55 

MENU 2 ; 

89 

R.56 

INITDATETIME; 

91 

R.57 

DOSCOMMAND; 

92 

R.58 

HELPSCREENl ; 

93 

R.59 

HELPSCREEN2; 

93 

R.60 

HELPSCREEN3; 

93 

R.61 

OVER ALL HELP; 

93 

R.62 

DEBUGROUTINEPROMPT; 

93 

R.63 

CLEANSCREEN VALUES; 

94 
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R.xx refers to the number of the Routine in the 
program listing that performs the specified 
function. An Index to the Routines is given in 
pages 96-97. 


NOTE : 





o 



NOTE: K.3CX rafers to the number of the Routine in the 

program listing that performs the specified 
function. An Index to the Routines is given in 
pages 96 - 91 . 







mwLmr^fm r .24 
m 1 ^ 


I yP®4TE 

SCf^EH lATA 


RESET 

INTMJir«fTft 

UFMW 1 
BMSmi ^ 


/ IS 

^MIHLFIWTE" 
a 3 

YES 



UPDATE SCREEN 
DATA AND 
NLDBAS.OAT 


IhOTIALKC 

NDDE_LIST_rTR RJit 
S. MINUPIMTE 


FIRST \ 
BYTE OF ^ 
MESSAGE 


/FIRST X. 

ES^ 


STATUS 
MESSAGE m 
V BUFFER 
\ f 


ERROR^FLAG a 2 

I E30 


errdr_flas ■ I 

ESO 


UPDATE 


CORRESPONDING D in 

I 

r 

M 

.ARRAY 


UPDATE 
ESDBAS.DAT " 


NOTE I 


R.xx refers to the number of the Routine j 
program listing that nerform*? in the 

function. An Index tS t^ r!,^JT apecified 

pages 96 - 97 the Routines is given in 
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TE; R.xx refers to the name of the Routine in the 
program listing that performs the specified 
function. 
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